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PART  1. -SCOPE  AND  APPLICATION 


By  Rex  F.  Colwick  and  James  W.  Jones- 


There  has  been  considerable  interest  in  com- 
puter simulation  of  productivity,  energy  flow, 
water  use,  and  pollution  in  the  many  different 
ecosystems  over  the  earth's  surface.  Much  of  this 
work  has  been  stimulated  by  the  International 
Biological  Program  (IBP)  and  is  oriented  to- 
ward better  management  of  the  earth's  re- 
sources. We  report  here  considerable  progress, 
independent  of  IBP,  toward  the  modeling  and 
simulation  of  cotton  production  systems. 

There  are  several  justifications  for  computer 
simulation  of  a  large  system.  First,  computer 
models  focus  attention  on  areas  where  knowl- 
edge is  lacking  and  assist  in  the  planning  and 
management  of  team  research.  Second,  these 
models  are  useful  experimental  aids  for  studying 
hypotheses  about  system  relationships,  allowing 
better  understanding  of  the  numerous  compo- 
nents of  a  system  and  thus  reducing  the  cost  of 
applied  research.  Ultimately,  in  showing  the  re- 
lationships among  system  components,  computer 
models  form  a  base  for  sound  management  deci- 
sions and  alternatives. 

Our  work  commenced  with  the  organization  of 
Regional  Research  Project  S-69,  "Engineering 
Systems  for  Cotton  Production,"  in  1968.  No  one 
researcher  can  have  a  comprehensive  under- 
standing of  the  structure  and  operation  of  each 
component  of  a  crop  production  system,  and  this 
project  has  provided  coordination  among  a  num- 
|  ber  of  researchers  in  developing  a  cotton  produc- 
tion simulation  model.  Since  its  inception,  many 
experimentalists  have  joined  the  effort  to  build 
data  bases  for  submodels,  and  many  are  also  us- 
ing parts  of  the  system  to  study  large  ecosystems. 

1  Cooperative  research  of  Agricultural  Research  Serv- 
ice and  Mississippi  Agricultural  and  Forestry  Experi- 
ment Station. 

2  Research  leader,  Cotton  Production  Research,  and 
agricultural  engineer,  Southern  Region,  Agricultural 
Research  Service,  U.S.  Department  of  Agriculture,  P.O. 
Box  5465,  Mississippi  State,  Miss.  39762.  Colwick  is  Co- 
ordinator of  Regional  Research  Project  S-69. 


This  publication  describes  four  simulation 
models  of  subsystems  in  the  cotton  production 
system.  These  models,  encompassing  seedbed 
preparation  through  harvesting  and  ginning, 
were  interfaced  for  the  first  computer  simula- 
tion of  any  crop  production  system  in  October 
1973. 3  Our  research  group  is  close  to  completing 
some  insect  management  models  that  will  soon  be 
added  to  the  simulation. 

The  first  model  simulates  the  soil-moisture 
profile  in  the  seed  zone  (MOIST) .  It  is  a  descrip- 
tion of  the  moisture  flux  based  on  the  conserva- 
tion of  water  in  the  top  6  inches  of  soil.  Water 
evaporates  from  a  visible  moisture  front  as  the 
water  diffuses  through  a  layer  of  dry  soil  and  is 
partially  replaced  by  capillary  water  that  moves 
from  a  moist  region  to  a  dry  region  in  response 
to  a  moisture  gradient.  This  model  provides  the 
moisture  input  to  the  following  model,  EM- 
ERGE. 

EMERGE  describes  the  germination  and 
emergence  of  the  seed.  It  is  controlled  by  soil- 
moisture  tension,  soil  temperature  at  the  seed 
depth,  and  the  mechanical  impedence  of  the  sur- 
face soil.  When  the  model  has  simulated  50% 
seedling  emergence,  the  plant  model,  SIMCOT 
II,  is  initiated. 

SIMCOT  II  is  based  on  conservation  principles 
that  include  a  carbohydrate  balance,  a  moisture 
balance,  and  a  nitrogen  balance  for  the  plant.  It 
requires  daily  inputs  of  solar  radiation,  maxi- 
mum and  minimum  air  temperatures,  rainfall, 
pan  evaporation,  plant  population,  water-hold- 
ing capacity  of  the  soil,  nitrogen  application 
rates  and  dates  of  application,  and  plant  growth 
factors  related  to  carbohydrate,  water,  and 
nitrogen  balances.  Daily  outputs  from  this  model 
include  plant  weight,  the  number  of  fruit,  and 
the  age  and  location  of  each  fruit  on  the  plant. 


3  Bowen,  H.  D.,  Colwick,  R.  F.,  and  Batchelder,  D.  G. 
1973.  Computer  simulation  of  crop  production:  Potential 
and  hazards.  Agric.  Eng.  54  (10)  :  42-45. 
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Boll  opening  rate  curves  from  this  model  can  be 
used  to  initiate  the  harvesting  process  described 
in  the  last  model,  HARVSIM. 

HARVSIM  is  a  single-farm  harvesting  model 
that  simulates  passes  made  in  the  fields  by  the 
harvesters,  the  selection  of  trailers  for  filling, 
the  transporting  of  trailers  to  the  gin  and  of 
empty  trailers  to  the  farm,  and  gin  backlog.  An 
option  includes  twice-over  harvesting  in  which 
the  second  harvesting  of  a  given  field  occurs 
only  if  the  remaining  cotton  would  yield  more 
than  a  specified  amount.  The  model  takes  the 
cotton  on  through  the  ginning  process  and  is 
capable  of  assigning  economic  values  to  the  end 
product. 

These  models  are  in  various  stages  of  valida- 
tion. 

MOIST  was  verified  for  only  one  soil  type  and 
at  one  location  primarily  because  the  soil  param- 
eters necessary  for  additional  verification  are 
lacking;  however,  soil  parameters  are  being  de- 
veloped for  approximately  20  soils  that  repre- 
sent about  80  %  of  the  cotton  farmland  in  the 
United  States.  Some  of  these  data  should  be 
available  in  1975. 

EMERGE  was  tested  in  five  States  for  2  or 
more  years  and  produced  satisfactory  to  excel- 
lent simulations  in  years  in  which  the  tempera- 
ture increased  progressively  as  the  season  ad- 
vanced. Subsequently,  a  slight  modification  im- 
proved the  simulation  when  a  long  cold  period 
followed  a  warm  period  2  or  3  days  after  plant- 
ing. This  modification  needs  more  testing  under 
various  field  and  weather  conditions. 

SIMCOT  II  was  tested  at  several  locations, 
and  when  detailed  mappings  of  the  plant  struc- 
ture had  been  recorded  twice  a  week  and  the 
environment  had  been  monitored  accurately, 
there  was  good  correspondence  between  ob- 
served and  simulated  plant  development,  fruit- 
ing characteristics,  and  yield.  More  testing  is 
needed  particularly  in  the  area  of  water  stress, 
and  more  development  is  needed  to  apply  this 
model  to  a  field  growth  situation. 

HARVSIM  was  tested  for  2  years  in  the  High 
Plains  of  Texas.  Data  for  the  first  year  show  an 
excellent  correspondence  between  simulation 
and  observation.  Second-year  data  have  not  been 
analyzed. 

Although  these  models  are  in  various  stages 
<>f  development  and  verification,  this  users  man- 
ual is  presented  to  document  progress  to  date 


and  to  offer  these  models  to  scientists  as  a  tool 
which  they  may  use  to  focus  attention  on  aspects 
of  the  system  where  understanding  is  limited. 
This  should  help  them  identify  missing  links  and 
assign  research  priorities. 

These  models  are  not  sufficiently  developed 
and  tested  to  assist  cotton  producers  with  man- 
agement decisions.  Such  use  could  result  in  eco-| 
nomic  losses.  The  full  management  capabilities 
of  crop  simulation  will  not  be  achieved  until  all 
major  crops  have  been  modeled.  Furthermore,  a 
number  of  submodels  dealing  with  insects,  dis- 
eases, root  development,  nutrients,  and  water 
relationships  will  be  essential  for  producer  deci- 
sions. These  are  under  development. 

To  interface  crop  production  submodels  easily, 
it  is  possible  to  make  simplifying  assumptions 
based  on  the  objective  of  the  interface.  This  ap- 
proach was  successfully  used  to  interface  the 
four  models  described  herein.  In  figure  1-1  crop 
management  is  shown  as  it  relates  to  the  cotton 
production  system.  Options  were  designed  for 
running  any  combination  of  the  models  when  the 
user  specified  appropriate  inputs.  For  example, 
SIMCOT  II  could  be  run  alone  or  with  EMERGE 
and  MOIST,  or  MOIST  could  be  run  alone.  The 
integrated  models  were  run  to  test  hypothetical 
situations  such  as  a  10-day  cold  spell  following 
planting,  which  resulted  in  a  realistic  delay  in 
maturity  and  a  decrease  in  yield. 

A  simulation  of  planting  through  harvesting 
provided  very  interesting  results.  However,  the 
assumptions  that  were  made  will  probably  not 
be  sufficient  for  all  applications  of  the  model. 
For  example,  MOIST  and  EMERGE  were  inter- 
faced to  provide  soil-moisture  values.  It  was 
assumed  that  (1)  the  seed  and  seedling  do  not 
alter  the  soil-moisture-flux  equations,  (2)  the 
soil  temperature  can  be  predicted  from  air  temp- 
erature, (3)  the  relative  humidity  can  be  pre- 
dicted from  maximum  and  minimum  air  temper- 
atures, the  dew  point  temperature  of  the  previ- 
ous day,  and  rainfall,  and  (4)  physical  imped- 
ence  is  known.  MOIST  provided  a  table  of  the 
hourly  moisture  contents  at  planting  depth;  how- 
ever, EMERGE  required  moisture  tension  values 
in  bars  as  input.  To  use  the  interfaced  models,  a 
soil  moisture-soil  tension  relationship  and  a 
moisture  release  equation  are  needed  for  the  soil 
being  tested. 

These  equations  are  being  developed  for  20 
soils,  as  mentioned  above,  at  North  Carolina 
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FIGURE  1-1. -Schematic  of  initial  interface  of  MOIST,  EMERGE,  SIMCOT  II,  and  HARVSIM. 


State  University.  Also,  Henry  D.  Bowen  and 
others  at  North  Carolina  State  University  are 
attempting  to  obtain  enough  data  so  that 
EMERGE  can  be  used  without  having  to  meas- 
ure moisture,  temperature,  and  physical  imped- 
ence  daily.  This  technique  will  be  based  on  soil 
types  and  will  be  developed  from  National 
Weather  Service  information  and  the  reaction 
of  the  soil  to  initializing  inputs  of  moisture, 
temperature,  and  physical  impedence. 

SIMCOT  II  was  initiated  when  MOIST-EM- 
ERGE  predicted  50  %  emergence.  It  was  as- 
sumed that  from  this  point  carbohydrate  produc- 
tion and  assimilation  would  be  the  controlling 
factor  in  plant  development.  A  major  assump- 
tion was  that  a  single  plant  can  be  used  to  make 
predictions  of  growth  and  yield;  the  variability 
among  plants,  their  competition,  and  environ- 
mental variability  were  not  considered.  Again, 
depending  on  the  objective,  this  may  or  may  not 
be  suitable.  Also,  no  insect  models  were  inte- 
grated into  this  initial  effort. 

SIMCOT  II  predicted  the  boll  opening  rate 
used  as  input  to  HARVSIM.  For  this  interface 
it  was  assumed  that  (1)  no  preharvest  chemical 
aids  had  been  used  and  that  (2)  nothing  hap- 
pened to  the  plant  except  the  removal  of  open 


bolls.  Both  assumptions  were  based  on  consider- 
able past  research,  but  for  some  applications 
they  may  be  unacceptable. 

Considerable  work  remains  to  be  done  to  inter- 
face these  and  other  models  at  the  field  level.  In 
many  cases,  detailed  models  of  interactions  of 
various  physical  and  biological  systems  will  be 
just  as  complicated  as  any  of  the  independent 
models.  For  example,  interfacing  an  insect  popu- 
lation dynamics  model  with  a  crop  model  might 
be  accomplished  by  modeling  the  behavior  and 
metabolism  of  the  insects  as  influenced  by  weath- 
er, crop  factors,  and  insect  preferences.  Such  an 
interface  would  allow  detailed  studies  of  the 
interactions  and  provide  needed  assumptions  and 
relationships  for  higher  level  models. 

An  ultimate  goal  of  these  models,  as  mentioned 
earlier,  is  to  optimize  crop  production  systems. 
In  addition,  they  will  provide  information  for 
farm  management  decision  models.  Optimiza- 
tion models  require  a  statement  of  what  is  to  be 
optimized.  At  the  producer  (farm)  level,  profits 
are  generally  optimized  (maximized)  subject  to 
the  constraints  particular  to  a  given  farm.  How- 
ever, researchers  may  study  an  optimization 
model  designed  to  maximize  yield  or  minimize 
production  cost  at  the  crop  model  level. 
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PART  2.-M0IST:  A  SIMULATION  OF  THE  MOISTURE 
PROFILE  OF  A  BARE  SOIL  AFTER  PLANTING 

By  Charlie  G.  Coble,*  Henry  D.  Bowen,=  and  Henry  L.  King,  Jr.3 


DESCRIPTION 


MOIST  is  a  computerized  mathematical  model 
for  predicting  soil  water  profiles  during  the  dry- 
ing of  soil.  It  accounts  for  water  movement  in  the 
soil  in  both  the  liquid  and  the  vapor  states  and 
the  evaporation  of  water  to  the  atmosphere. 

Liquid  water  movement  is  computed  with  the 
soil  water  diffusivity  equation: 


J-—D(Q) 


de 
dx 


where   Jc=flux  of  water  in  grams  per  second 
per  square  centimeter, 
(e)=soil  water  diffusivity  in  square 
centimeters  per  second, 
D(e)=  water  content  in  cubic  centimeters 
per  cubic  centimeter  of  soil, 

de 

-far=  gradient  of  water  content  in  cubic 
centimeters  per  cubic  centimeter  of 
soil  per  centimeter  of  distance. 


and 


The  transfer  of  water  in  the  vapor  state  be- 
cause of  temperature  gradients  is  calculated 
with  the  equation 

r  r  rf(lnT) 

Jv~~Ddx~Lve~dlT' 

where    .7,  =  flux  of  water  vapor  in  grams  per 
second  square  centimeter, 
7J=diffusion  coefficient  of  water  vapor 
in  soil  matrix  in  square  centimeters 
per  second, 


1  Assistant  professor,  Texas  A&M  University,  College 
Station,  Tex.  77840.  Formerly  at  North  Carolina  State 
University,  Raleigh. 

:  Professor  of  agricultural  engineering,  North  Caro- 
lina Stat*  University,  Raleigh,  N.C.  27607. 

1  Research  assistant,  North  Carolina  State  University 
Rnlcifrh,  N.C.  27607. 


and 


C=concentration  of  water  vapor  in  soil 
air  or  atmospheric  air  in  grams  per 
cubic  centimeter  of  air, 

dC 

gradient  of  concentration  of  water 

vapor  in  soil  air  and  in  atmosphere 
in  grams  per  cubic  centimeter,  per 
centimeter  of  distance, 
L,,e=coupling  coefficient  between  water 
vapor  and  heat  energy  in  moles  per 
second  square  centimeter, 
jT=temperature  in  degrees  Kelvin, 
x= distance  over  which  diffusion  is  oc- 
curring in  centimeters. 
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The  water  evaporated  to  the  atmosphere  is 
controlled  by  vapor  diffusion  through  the  dry 
overlying  soil  layer  and  is  calculated  with  the 
equation 


dC 
~Ddx-> 


where 


/e=evaporation  flux  as  water  vapor 
diffusing  through  soil  from  visible 
moisture  front  to  soil  surface  in 
grams  per  second  square  centi- 
meter, 

D=diffusion  coefficient  for  water 
vapor  through  soil  matrix  in  square 
centimeters  per  second, 

dC 

-faT=  concentration  gradient  of  moisture 
in  soil  air  from  visible  moisture 
front  to  soil  surface  in  grams  per 
cubic  centimeter  per  centimeter  of 
distance. 

Inputs  to  the  simulation  are  weather  and  soil 
data  (air  temperature,  atmospheric  relative 
humidity,  soil  temperature,  water  vapor  diffu- 
sion coefficients  in  soil,  soil  water  diffusivities, 


IAI 


and 


c  DPI 
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soil  bulk  density,  and  energy-mass  coupling  co- 
efficients) . 

The  model  was  verified  for  use  on  Ruston 
loamy  sand  soil  and  is  adaptable  to  other  soils.  It 
can  be  used  to  accurately  assess  the  effect  of  cul- 
tural practices  on  the  soil  water  content  profiles 
in  drying  soil.  It  was  used  to  examine  the  effects 
of  bulk  density,  wind,  liquid  water  conductivity 


barriers,  and  surface  films  on  the  soil  water  con- 
tent profiles  under  drying  conditions. 

The  costs  of  using  the  model  to  optimize  a  cul- 
tural practice,  including  the  cost  of  empirical 
verification  of  results,  are  estimated  to  be  0.01 
to  0.1  of  those  required  for  obtaining  the  same 
information  by  empirical  methods  alone. 


LIMITATIONS 


The  major  limitation  of  MOIST  is  the  large 
number  of  temperatures  and  relative  humidities 
required  for  the  program.  For  instance,  with  15 
soil  layers,  air  temperature,  and  relative  humid- 
ity, there  are  408  items  per  day  of  input.  Just 
obtaining  the  data  is  a  major  operation,  and 
then  it  must  be  punched  in.  However,  for  in- 
depth  studies  of  moisture  movement  in  the  top 
inch  of  soil,  these  data  are  required.  A  second 
limitation  is  that  the  soil  parameters  necessary 
for  the  program  are  available  only  for  a  Ruston 
loamy  sand  soil. 

The  thermal  vapor  section  of  the  program  is 
not  very  important  in  humid  regions  except  pos- 
sibly in  the  surface  inch  or  less  of  soil  and  for 
high-radiation  conditions.  For  large-seed  crops, 
such  as  cotton,  corn,  soybeans,  and  peanuts,  this 
section  can  probably  be  bypassed  without  serious 


error,  but  it  will  probably  be  necessary  for  small- 
seed  crops  planted  at  shallow  depths.  Where  the 
vapor  transfer  can  be  bypassed,  it  is  not  neces- 
sary to  have  temperature  inputs  for  all  layers, 
but  only  for  the  visible  drying  front,  for  which 
air  and  soil  temperatures  are  required.  If  the 
thermal  vapor  transfer  is  bypassed,  the  mass-en- 
ergy coupling  coefficient  also  need  not  be  ob- 
tained. By  using  a  constant  temperature 
throughout  the  soil  profile,  the  thermal  gradient 
is  bypassed.  This  is  usually  some  function  of  air 
temperature,  such  as  TA-3.  However,  it  is  desir- 
able that  the  temperature  at  the  visible  moisture 
front  be  estimated  as  closely  as  possible  for  ac- 
curate operation.  Tests  are  in  progress  to  de- 
velop estimates  of  temperature  at  the  visible 
moisture  front  from  air  temperature,  wind,  a 
roughness  coefficient,  and  solar  radiation. 


DEFINITION  OF  TERMS 


ADC 

AGRAD 
AIST 


BD 

CATM 

CCOEF 
COUPL 


DCONST 

EVAPJ 
PICKS 

FVAPOR 

GRADC 


Diffusion  coefficient  for  the  layer  approxi- 
mately halfway  between  the  evaporation 
front  and  the  surface  to  make  sure  it  is 
diffusing  through  the  dry  soil. 

Water  vapor  driving  gradient  from  moisture 
front  to  the  surface. 

Distance  from  middle  of  Kth  layer  to  the 
surface  in  centimeters  when  1-cm-thick 
layers  are  used. 

Array  for  the  bulk  density  of  each  soil  layer. 

Water  vapor  concentration  of  atmosphere  in 
grams  per  cubic  centimeter  of  air. 

Energy-mass  coupling  coefficient. 

Array  of  the  part  of  thermal  vapor  transfer 
due  to  the  energy-mass  coupling  for  each 
soil  layer. 

Array  of  water  vapor  diffusion  coefficient  in 
soil  for  each  soil  layer.  Computed  in  real 
function  routine  listed  at  end  of  program. 

Evaporation  flux  in  grams  per  second. 

Array  of  the  part  of  thermal  vapor  transfer 
due  to  Fick's  law  for  each  soil  layer. 

Water  flux  in  grams  per  second  due  to  temp- 
erature gradient. 

Water  vapor  concentration  of  atmosphere  in 
grams  per  cubic  centimeter  of  air  per  cen- 
timeter of  distance. 


GRADLT    Gradient  of  the  log  of  the  temperature. 

IP  The  number  of  1-cm  layers  in  which  the  soil 

profile  is  divided. 
IT  The  total  number  of  time  periods  for  the 

model  to  run. 

L  The  first  L  in  MOIST  is  k/2;  it  is  used  to 

select  a  dry  layer  that  is  over  the  evapora- 
tion front.  The  second  L  is  a  DO  loop  sub- 
script. 

QCOND  Array  of  the  amount  of  water  transferred 
out  of  each  soil  layer  in  the  form  of  liquid 
water. 

QCONDD  Array  for  each  soil  layer  of  the  liquid  water 
transferred  down. 

QCONDU  Array  for  each  soil  layer  of  the  liquid  water 
transferred  up. 

QEVAP  Array  of  the  quantity  of  evaporated  mois- 
ture. 

QVAPOR  Water  vapor  transfer  due  to  temperature 
gradient  per  soil  layer  (array). 

RH  The  relative  humidity  of  the  atmospheric  air 

during  the  time  period. 

SAVE        Evaporation  from  moisture  front. 

SAVE1  Distance  in  centimeters  from  the  surface  of 
the  soil  to  the  moisture  front  of  the  soil. 

SEC  The  number  of  seconds  in  each  time  period. 
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SWITCH 


TA 


TCK 


VWC 


Allow  moisture  to  evaporate  from  the  layer 
with  moisture  front  in  it. 

Array  for  the  temperature  of  each  soil  layer  WATER 
during  the  time  period. 

The  temperature  of  the  atmosphere  air  dur- 
ing the  time  period.  WC 

Array  of  temperature  converted  to  Kelvin 
for  each  soil  layer. 

Array  of  volumetric  water  content  for  each  WDIFF 


soil  layer  in  cubic  centimeters  of  water  per 
cubic  centimeter  of  soil. 
Array  of  moisture  level  of  each  soil  layer  in 
grams  of  water  per  cubic  centimeter  of 
soil. 

Array  for  water  content  of  each  soil  layer 
(dry-weight  basis).  Example:  6%,  read  in 
as  0.06. 

Diffusivity  coefficient  for  a  particular  soil. 


INPUT/OUTPUT 


Input 


Program  inputs  read  in  as  data  are  arranged 
in  the  following  order  and  formats: 

1.  IP,  IT,  and  SEC  on  one  card  in  110,  110, 
and  F10.0  format. 

2.  BD  array  (bulk  density  of  each  soil  layer) 
arranged  in  15F5.0  format. 

3.  WC  array  (initial  moisture  content  at 
each  soil  layer)  arranged  also  in  15F5.0  format. 

4.  RH,  TA,  and  T  (RH  and  TA  are  single 
variables  and  T  is  an  array)  arranged  in  F3.0, 
F2.0,  and  15F5.0  format. 


The  maximum  number  of  soil  layers  is  15.  If  a 
deeper  profile  is  needed,  enlarge  the  dimension 
statement  and  the  input  and  output  formats. 

Output 

The  output  of  the  program  consists  of  the  time 
period,  the  moisture  content  of  each  level  for  that 
time  period,  the  distance  from  the  surface  to  the 
center  of  the  soil  layer  with  the  moisture  front, 
and  the  quantity  of  evaporated  moisture.  The 
output  variables  are  J,  (WC(I),  1=1,  IP), 
SAVE1,  and  SAVE,  formated  as  15,  15F7.4, 
F5.2,andE15.6. 


PROGRAM  SETUP  AND  EXECUTION 


MOIST  is  written  in  FORTRAN  G,  a  stand- 
ardized FORTRAN  supported  by  IBM,  for  the 
IBM  370/165  computer.  The  program  does  not 
use  any  special  system  functions,  but  is  easily 
transformable  to  any  FORTRAN  compiler.  The 
standard  code  for  an  IBM  370/165  is  EBCDIC, 
and  the  cards  were  punched  on  an  IBM  029  key- 
punch. 

The  card  deck  is  arranged  in  the  following  se- 
quence: 

A.    Control  cards 

1.  Job  card 

2.  //  EXEC  FTGCLG 

3.  //C.SYSIN  DD  * 
Main  program  deck 
Function 
Control  cards 

1.  /* 

2.  //G.SYSIN  DD  * 


B. 
C. 
D. 


E.  Data 

F.  Control  cards 

1.  /* 

2.  // 

The  //  EXEC  FTGCLG  card  in  the  control 
section  tells  the  computer  to  compile,  link  and 
execute  the  program.  The  //C.SYSIN  DD  *  card 
causes  the  program  and  the  function  to  be  com- 
piled. All  initializing  of  values  to  zero  should  be 
done  in  the  program.  All  linkage  to  execute  a 
FORTRAN  program  is  then  compiled.  The  //G. 
SYSIN  DD  *  card  then  causes  the  program  to  be 
executed  using  the  following  data  cards.  The 
compiled  program  uses  approximately  5,000 
memory  locations,  and  the  execution  requires 
30,000  memory  locations  on  the  IBM  370/165.  To 
simulate  4  days,  the  computer  compile  and  exe- 
cution times  are  approximately  2.0  and  5.0  sec- 
onds, respectively. 


PROGRAM  LISTING 


THIS  PROGRAM  CALCULATES  DISTRIBUTION  OF   MOISTURE   DURING  THE 
DRYING  STAGE 

DIMENSION  BD(15),   WC(15),    T(16),    C(16),    WATERU5),  QEVAPU5), 
1QVAP0R( 16) ,QCONO( 16) ,DCONST( 15) ,QCONDU( 16) ,OCONDO( 15) ,VWC( 15) , 
1FICKS( 15),C0UPL( 15) ,TCK( 16) 

READ( 1,51 ) IP,    IT,  SEC 

READ! 1, 52) (BD( I ) , 1=1, IP) 

RE AD ( 1, 53) ( WC( I ) , 1=1, IP) 

51  FORMA  T( 2110, F  10.0) 

52  FORMAT ( 15F5.0) 

54  FORMAT ( F  3. 0 ,   F2.0,  15F5.0) 

53  FORMA T ( 15F5.0) 

27  FORMA  T(  '    TIME      WC  ( 1  >      WC  (  2  )      WC ( 3 )      WC(4       WC(5)     HC(6)     WC(7)  HC 
1(8)      WC(9)    WC(10)    WC(ll)    WC12)    WC(13)    WC(1A)    WC(15)      DIST  QEVAPM 
WR ITE( 3, 27) 
DO    125  M=l, IP 
.25   VWC(M)    =      WC(M)    *  BD(M) 
DO  75  J-1VIT 

READ(1,54)    RH,TA,    ( T ( I ) , I = 1 , I P ) 
T( 16)   =T( 15) 
DO   75  J2=l,4 
SW  ITCH=0 
DO   1  K=l,16 
1   C(K)=  2.288E-6*10**((T(K)-3)/76) 

MOISTURE   TRANSFER   DUE   TO  TEMPERATURE   GRADIENTS  SECTION 
DO   90  K=1,IP 

DCONST(K)=   D(T(K),    BD ( K  )  ,  WC(K)) 

THIS   STATEMENT   SKIPS  MOISTURE   TRANSFER    IF   MOISTURE  CONTENT  IS 
LESS   THAN  1%. 

IF(WC(K).LE. 0.018)      GO   TO  105 
CCOEF  =(-0.0000067  ♦   0. 000384*WC ( K ) ) /  18 
GR ADC  =C(K)-  C(K+1) 
TCK(K)=5*( T(K)-32)/ 9+273 
TCK( K+l )=5*( T( K+l )-32) /9+273 
GRADLT=AL0G(TCK(K)/TCK(K+1 ) ) 
F  ICK S ( K  )  =  DCONST(K)*GRADC 
COUPL(K)=CCOEF*GRADLT 
FVAPOR=F ICKSl K )+COUPL( K) 
QVAPOR(K)    =  FVAPOR   *  SEC 
QVAPOR(K)   =  ABS( QVAPOR ( K) ) 
GO  TO  110 
105  QVAPOR(K)    =  0 
110  CONTINUE 

EVAPORATION  SECTION 

THIS   STATEEMENT  BYPASSES  EVAPORATION  STEP    IF   MOISTURE  CONTENT 

IS  LESS  THAN  0.51 
IF(WC(K).LE. 0.005)    GO  TO  80 

THIS   STATEMENT   BYPASSES  EVAPORATION  STEP    IF   EVAPORATION  HAS  BEEN 
CALCULATED   FOR  A  HIGHER  SLICE 
IF(SWITCH.EQ.I)    GO   TO  80 
CATM   =    2.288E-6   *    10**( (TA— 3)/76)*RH 
DI ST=K-0.5 
SAVE1  =  DIST 

AGRAD= ( C( K  )-  CATM)/  DIST 
L=K/2 

IF(L.LE.l)    L=  1 

ADC  =  DCONST( L  ) 
EVAPJ   =  AOC*AGRAD 
QEVAP(K)   =   EVAPJ   *  SEC 
OEVAP(K)    =   ABS(OEVAP(K) ) 
SAVE   =  QEVAP(K) 
SWITCH=1 


PROGRAM  LISTING-Continued 


GO   TO  70 
80  QEVAP(K)   =  0 
L=0 

DIST=0 
AGRAD=  0 
ADC=0 
EVAPJ=0 

C  THIS   SECTION  COMPUTES  WATER   TRANSFERRED  DUE  TO  HYDRAULIC  CONDUCTIVITY 

70         IF( VWC(K).LE.0.02>   GO  TO  480 
IF(VWC(K).LE. 0.055)   GO  TO  135 

WDIFF=( 10**< ( VWC< K)   -  0.046)    /   0.036))*  0.00001 
GO  TO  91 
135  WD  IFF  =  1.55E-5 
GO  TO  91 
480  WDIFF=0.0 

91    IF(K.EQ.    1)   GO  TO  11 

IF(WC(K)   -WC1K-1))  11,11,12 

12  QCONDU(K)   =   WDIFF   *   (VWC(K)   -   VWC(K-l))    *  SEC 
GO  TO  15 

11  QCONDU(K)   =  0 

15  IF(K.EQ.15)   GO  TO  13 
IF(WC(K)   -   WCIK+D)  13,13,14 

14  QCONDD(K)    =  WDIFF   *    (    VWC(K)   -   VWClK+l))    *  SEC 
GO  TO  16 

13  QCONDD ( K  )   =  0 

16  QCONDU   ( 16)=0 
90  CONTINUE 

430       DO    18  N=l,  15 

IF(N    . EQ .    1)   GO  TO  17 

QCOND(N)    =  -OCONDD(N)    -  QCONDU(N)    +QCCNDU(N+1)    +  QCONDD(N-l) 
GO  TO  18 

17  QCOND(N)   =   -  QCONDD(N)    ♦   QCONDU< N+ 1 > 

18  CONTINUE 

00  65  L=l, 15 
WATER ( L )    =  WC(L)*BD(L) 
IF(T(L)  -   T(L+1) )45,40,40 
40   IF(L.EQ.l)    GO   TO  100 

WATER ( L )    =   WATER(L)   -  QEVAP(L)    -  QVAPOR(L)    +  OCOND(L)+  QVAPOR(L-l) 
GO  TO  50 

100  WATER(L)   =   WATER(L)    -  OEVAP(L)    -  QVAPOR(L)   +  QCONC(L) 
GO  TO  50 

45   WATER(L)    =   WATER ( L  )    -   QEVAP ( L) ♦QCOND< L  )  -  QVAPOR(L) 

1+  0VAP0R(L+1) 
50    IFIWATER(L).LE.O)      WATER ( L )    =  0 
WC(L)    =  WATER(L)/BD(L) 
VWCIL)   =  WATER ( L ) 
65  CONTINUE 

WC(15)   =     WC(14)   ♦   WC(14)   -  WC< 13) 
75   WRITE(3,26)    J,    WC ( 1 ) ,    WC ( 2 ) ,   WC ( 3 ) ,   WC(4),    WC ( 5 ) ,   WC(6),  WC(7), 
1WC(8),   WC(9),    WC(IO),   WC(ll),    WC112),    WC(13),    WC(14),  WC(15), 
1SAVE It  SAVE 
26  FORMAT( I  5, 1 5F 7 . 4 , F 5 . 2 , E 1 5. 6 ) 
RETURN 
END 

REAL   FUNCTION   D(T,    BD,    WC ) 
TK  =T+460 

E= 0.2  86*1 ( TK/492)**1.75) 
F=BD/2.65   ♦  (WC*B0) 
Fl=1.0-F-0.23 
D=E*F  1 

RETURN 
END 
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PART  3.-EMERGE:  A  SIMULATION  OF  COTTON 
GERMINATION  AND  EMERGENCE 


lei 


soil-: 
val 


By  D.  F.  Wanjura1 


DESCRIPTION 


The  following  pages  contain  a  short  descrip- 
tion and  detailed  instructions  for  using  the  com- 
puter model  of  cotton  emergence,  EMERGE.  A 
comprehensive  discussion  of  the  theory  and  logic 
utilized  in  EMERGE  is  given  by  Wanjura  et  al.2 
Validation  of  EMERGE  and  its  application  for 
studying  the  sensitivity  of  cotton  emergence  to 
several  soil  parameters  have  been  documented 
by  Wanjura.3 

EMERGE  simulates  the  time  distribution  of 
cotton  seedling  emergence.  Theoretical  equations 
that  describe  water  absorption  by  seeds  and 
elongation  of  the  cotton  hypocotyl,  with  accom- 
panying logic,  form  the  basis  of  the  model.  Par- 
ameter values  for  the  theoretical  equations  and 
the  logic  were  derived  from  experimental  data 
and  other  observations  obtained  from  emergence 
tests  conducted  under  controlled  environmental 
conditions.  Parameter  values  in  the  equations 
are  dependent  functions  of  the  soil  environment. 
In  this  manner  the  equations  reflect  the  effect  of 
temperature,  moisture,  and  physical  impedance 
of  the  soil  on  the  emerging  seedlings 

Cotton  emergence  is  divided  into  two  phases  in 
EMERGE.  Within  each  phase  the  average  per- 
formance of  a  population  of  emerging  seedlings 
is  described.  The  first  phase  is  germination, 
which  is  followed  by  the  second  phase,  called 


1  Agricultural  engineer,  Southern  Region,  Agricul- 
tural Research  Service,  U.S.  Department  of  Agriculture, 
Lubbock,  Tex.  79401. 

2  Wanjura,  D.  F.,  Buxton,  D.  R.,  and  Stapleton,  H.  N. 
1973.  A  model  for  describing  cotton  growth  during  emer- 
gence. Trans.  ASAE  ( Am.  Soc.  Agric.  Eng.)  16:  227-231. 

3  Wanjura,  D.  F.  1973.  Effect  of  physical  soil  proper- 
ties on  cotton  emergence:  Prediction  and  quantitative 
description.  U.S.  Dep.  Agric.  Tech.  Bull.  No.  1481,  20  pp. 


emergence.  Germination  extends  from  the  time 
of  planting  until  the  average  radicle  length 
reaches  3  mm.  Germination  progress  is  related 
to  water  absorption  rate,  which  is  dependent  on 
soil  temperature  and  moisture.  Water  absorp- 
tion rate  increases  between  60°  and  100°  F,  but 
is  assumed  to  stop  below  60°  F  and  level  off 
above  100°  F.  Germination  (or  3-mm  radicle 
length)  is  considered  to  have  occurred  when  the 
moisture  content  of  the  seed  exceeds  a  specific 
level  for  a  given  temperature  and  soil  moisture. 
These  specific  seed-moisture  levels  were  deter- 
mined from  empirical  data. 

Emergence  begins  with  the  completion  of 
germination  and  depends  on  soil  temperature, 
moisture,  and  physical  impedance.  Emergence 
progress  is  related  to  the  average  hypocotyl 
elongation  of  the  seedling  population.  The  temp- 
erature limits  for  hypocotyl  elongation  are  60° 
and  104°  F.  Temperatures  outside  this  range  are 
assumed  to  stop  or  interrupt  hypocotyl  elonga- 
tion. 

Seedling  emergence  is  calculated  from  a  set  of 
regression  equations.  These  equations  were  de- 
veloped from  experimental  data  relating  average 
hypocotyl  length  and  soil-moisture  level  to  the 
percentage  of  seedlings  which  exceed  certain 
specific  lengths.  In  the  model,  the  specific 
lengths  represent  planting  depths.  For  example, 
if  the  hypocotyl  elongation  portion  of  the  model 
indicates  average  hypocotyl  length  as  4  cm,  with 
a  planting  depth  of  3.8  cm,  and  if  the  percentage 
of  seedlings  equal  to  or  greater  than  3.8  cm  in 
length  is  50  % ,  as  calculated  with  the  appropri- 
ate regression  equation,  then  50  %  emergence 
has  occurred  from  a  3.8-cm  planting  depth.  Per- 
centage emergence,  of  course,  would  be  lower  if 
the  planting  depth  was  greater  for  the  same 
average  hypocotyl  length. 
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LIMITATIONS 


The  temperature  range  of  EMERGE  extends 
from  60°  to  104°  F.  Soil  temperatures  are  meas- 
ured hourly  at  seed  level. 

Soil-moisture  tension  can  vary  from  0.33  to  11 
jars.  Soil  moisture  should  be  sampled  in  the  in- 
terval including  seed  depth  ±0.64  cm  at  least 
every  2  days.  When  the  soil  dries  to  seed  depth 
after  germination,  soil  moisture  should  then  be 
sampled  in  the  zone  where  the  seedling  radicle 
is  absorbing  moisture  from  the  soil. 

Soil  physical  impedance  is  the  input  parameter 
most  difficult  to  describe  numerically.  The 
values  used  in  developing  EMERGE  were  meas- 
urements made  in  soil  that  was  uniformly  com- 
pacted from  seed  level  to  the  soil  surface.  Even 
though  the  same  type  of  soil  penetrometer  (0.4- 
cm-diameter  blunt  end)  is  used  both  in  the  field 
and  in  the  laboratory,  the  same  physical  imped- 
ance reading  on  the  penetrometer  could  repre- 
sent different  magnitudes  of  soil  resistance  to 
seedling  emergence.  Rarely  in  the  field  is  the 
physical  impedance  level  in  the  soil  uniformly 
distributed  with  depth.  The  permissible  range  of 
physical  impedance  values  for  the  covering  soil 
over  the  seed  is  3.3  to  50  lb/in2  (PI  in  program) . 
Physical  impedance  should  be  measured  by  in- 
serting the  penetrometer  2.5  cm  into  the  cover- 
ing soil  over  the  seed  drill.  Measurements  should 
be  taken  at  least  every  2  days 

Planting  depth  designations  are  limited  to 


1.25-cm  increments  between  1.3  and  7.5  cm.  If 
the  depth  of  soil  over  the  seed  changes  after 
planting,  the  time  of  change  and  the  amount 
must  be  reflected  in  the  computer  coding  of 
EMERGE  where  planting  depth  (DEPTH)  is 
specified. 

There  is  no  algorithm  in  EMERGE  to  describe 
changes  in  seed  vigor  that  may  occur  after  plant- 
ing. Thus,  if  long  periods  of  adverse  tempera- 
ture or  saturated  soil  are  encountered,  EM- 
ERGE may  produce  an  inaccurate  simulation 
because  seed  germination  percentage  has 
changed.  The  model  was  developed  from  experi- 
mental data  on  acid-delinted  seed;  however,  it 
should  be  suitable  for  situations  where  fuzzy 
seed  is  planted. 

Henry  D.  Bowen  and  James  W.  Jones  at  North 
Carolina  State  University  suggest  the  following 
modification  of  EMERGE.  The  present  method 
of  calculating  the  limits  of  hypocotyl  elongation 
(EST)  for  a  low-temperature  period  followed  by 
a  warm  period  predicts  lower  growth  rates  than 
observed.  If  EST  is  calculated  by  using  a  run- 
ning average,  the  accuracy  for  the  above  condi- 
tions is  improved.  At  the  same  time,  the  accur- 
acy under  normal  warming  conditions  is  not  af- 
fected. North  Carolina  has  programed  EM- 
ERGE for  IBM  360  FORTRAN  with  the  option 
of  EST  being  calculated  with  or  without  using  a 
running  average. 


DEFINITION  OF  TERMS 


Array  of  hourly  seed-level  soil  tempera-  EM 

tures  in  degrees  Fahrenheit. 
Counter  for  accumulating  time  in  hours.  EP 
Hypocotyl  elongation  during  1  hour,  in 

centimeters. 

Seed-moisture  increase  during  the  hour  EST 

preceding  germination. 
Planting  depth  in  centimeters. 

Array  for  storing  the  calculated  hourly  GERMT 
fractional  accumulated  increments  of 
growing  time  prior  to  printing  as  out-  GP 
put.  IDATE 

Hourly  increase  in  seed  moisture  in  per-  J 
cent,  dry  weight.  KL 

Array  for  storing  accumulated  hypocotyl 

lengths  in  centimeters  prior  to  printing  KNL 
as  output. 

Accumulated  length  of  hypocotyl  in  cen-  KT 
timeters. 

Accumulated  hypocotyl  length  in  centi- 
meters. M 


Array  for  storing  hourly  EST  values 

prior  to  printing  as  output. 
Array  for  storing  cumulative  percentage 

emergence  values  prior  to  printing  as 

output. 

A  three-dimensional  array  of  maximum 
hypocotyl  lengths  used  to  calculate  hy- 
pocotyl elongation. 

Elapsed  time  from  planting  when  germ- 
ination occurs  in  hours. 

Standard  seed  germination  in  percent. 

Date  of  test. 

Counter  for  accumulating  time  in  hours. 

Parameter  used  in  calculating  rate  of 
seed-moisture  uptake. 

Array  for  storing  hourly  KT  values  prior 
to  printing  as  output. 

A  three-dimensional  array  of  rate  of  elon- 
gation parameter  values  used  to  calcu- 
late hypocotyl  elongation. 

Seed-level  soil-moisture  tension  in  bars. 
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MOIST 

Subroutine  in  which  time  variation  of 

seed-level  soil  moisture  is  specified. 

NDEPTH 

Integer  value  of  DEPTH. 

PI 

Soil  physical  impedance  in  pounds  per 

square  inch. 

PLACE 

Variable  for  identifying  location  of  test. 

s 

TEMP. 

TEMP 

Seed-level  soil  temperature  in  degrees 

Celsius. 

TIM 

Time  in  hours. 

TIME  Array  for  storing  time  values  in  hours 

prior  to  printing  as  output. 
TMAX  Total  allowable  emergence  time  for  the 

soil  environmental  conditions  existing 

during  the  hour. 
TWATER       Accumulated  seed  moisture  in  percent, 

dry  weight. 

TWATERL  Parameter  for  temporarily  storing  the 
value  of  accumulated  seed  moisture  in 
percent,  dry  weight. 


Input 

Program  inputs  read  in  as  data  are  arranged 
in  the  following  order  and  formats: 

1.  A  table  of  KT  values  is  read  under  5F 
10.0  format.  These  data  are  included  with  the 
source  deck,  which  can  be  obtained  from  the 
author.  The  KT  values  do  not  appear  in  the  out- 
put section. 

2.  A  table  of  EST  values  is  read  under  5F 
10.0  format.  These  data  are  also  included  with 
the  source  deck  and  do  not  appear  in  the  output 
section. 

The  following  data  must  appear  in  sequence 
after  input  2  and  be  supplied  by  the  user: 

3.  PLACE,  M,  PI,  IDATE,  DEPTH,  and  GP 
on  one  card  in  A10,  F5.0,  F5.0,  5X,  A10,  and 
2F5.2  format. 

4.  A-array  (hourly  seed-level  soil  tempera- 
tures) arranged  in  16F5.0  format  on  each  card. 
The  last  card  should  have  9999.  punched  in  the 
first  five  spaces.  The  number  of  hours  simulated 
is  equal  to  the  number  of  A-array  values.  A 
maximum  of  500  values  may  be  specified. 

The  following  information  is  required  input, 
but  does  not  appear  in  the  data  section  of  the  pro- 
gram deck;  necessary  changes  must  be  made  di- 

PROGRAM  SETUP 

EMERGE  is  programed  in  FORTRAN  for  a 
CDC  6400  computer. 

EMERGE  does  not  use  any  special  system 
functions  that  are  peculiar  to  a  CDC  6400.  Some 
variable  names  are  seven  characters  long,  which 
is  a  greater  word  length  than  most  other  com- 
puters allow.  The  CDC  6400  also  permits  the  "A 
format"  specification  to  be  a  maximum  of  A 
(10). 

The  standard  code  read  by  a  CDC  6400  is 
BCD.  Computers  which  have  EBCDIC  as  the 
standard  code  may  not  read  cards  punched  with 


rectly  in  the  main  program. 

5.  The  variation  of  seed-level  soil  moisture  i 
(M)  over  time  is  specified  in  subroutine  MOIST. 
This  information  must  be  supplied  by  the  user  in 
FORTRAN  statements. 

6.  Physical  impedance  (PI)  variation  over 
time  is  specified  in  the  main  program  where  in- 1 
dicated  by  comment  cards.  The  change  in  physi- 
cal impedance  must  be  described  by  the  user  in 
FORTRAN  statements. 

Output 

The  first  information  printed  out  is  identify- 
ing data  for  the  simulation,  including  location, 
beginning  seed-level  soil  moisture,  initial  soil 
physical  impedance,  and  date.  This  information 
is  printed  under  the  format  of  statement  31. 

During  germination  the  parameters  CLOK, 
TEMP,  M,  KL,  DWATER,  DELMOS,  and 
TWATER  are  printed  hourly  in  7F10.5  format. 

When  seed  germination  is  reached  this  is 
printed  under  the  format  of  statement  52 — 
GERMINATION  TIME  EQUALS  "F5.0." 

During  the  emergence  phase  of  EMERGE, 
hourly  values  of  TIME,  A,  DE,  EL,  KNL,  EM, 
DT,  and  EP  are  printed  according  to  the  format 
of  statement  34. 

AND  EXECUTION 

BCD  code.  Normally,  computers  can  read  either 
code,  provided  an  appropriate  control  card  is 
utilized. 

The  card  deck  is  arranged  in  the  following  se- 
quence: 

A.    Control  cards 

1.  Job  card 

2.  RUN(S) 

3.  SETCORE 

4.  LGO 

End-of -record  card:  Multiple-punch  7-8-9 
in  card  column  1 
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B.  Main  program  deck 

C.  Subroutines 

End-of -record  card:  Multiple-punch  7-8-9 
in  card  column  1 

D.  Data 

End-of-file  card:  Multiple  punch  6-7-8-9 

in  card  column  1 
The  RUN(S)  card  in  the  control  card  section 
auses  the  computer  to  compile  EMERGE.  All 
lemory  locations  in  the  computer  are  zeroed  by 
tie  SETCORE  card.  The  LGO  card  causes  the 


program  to  be  executed.  In  addition  to  the  initial- 
izing accomplished  by  the  LGO  card,  some  vari- 
ables are  initially  set  equal  to  zero  in  the  main 
program.  However,  for  the  control  cards  indi- 
cated for  running  on  a  CDC  6400,  initializing 
within  the  main  program  is  redundant.  To  com- 
pile EMERGE  requires  10,112  memory  loca- 
tions. Program  execution  uses  9,984  memory  lo- 
cations. Computer  compilation  and  execution 
time  required  to  simulate  a  10-day  emergence 
period  is  approximately  5.2  seconds  of  central 
processor  time. 
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PROGRAM  LISTING 


PRORRiH  EME*GF( INPUT f OUTPUT tTAPFl* INPUT 1 


C*******ECT  IONS   S'lfiJECT   TO  CHANGE   FOR   SIMULATION   ARF   *S   FOLI 0WS***» 


c*M*»*(n    moisturEi  bars--  this  is  in  a  subruuttnf 

C******(2)      PHYSICAL   IMPEOA^CF,  PSI 


000QO3  DTMFNSION  KT(6,U,5)t  FST{6f«»,S) 

000003  DIMENSION   A  f  5  0  0 1  ♦   DF(SOO),   TIMEf5O0),  ELC500), 

1KNLf500)»   E^(SOO).   FPf500)»  DT(S0") 

000003  RFAL  M,«,KNL,KL 

000003  RFA070,r(fKT(I,J,l),Lsl»5)f,T«lia)tI«t»6) 

000030  PRINT  8* 

00003a  READ  70t(f(FST(I»Jtt)*Lsl*5)f J»l . fl) t I« 1 tb) 

000061  20   RFAH   3Q,    °L  ACF  t    M,    PI,    IDATF,    OFPTH,  OP 

000  1  0  1  PRINT    51,   PL  ACE  t   Mi    PI,  IOaTE 

000115  1   PRINT  40 

000121  70   FORMAT (SF1 0.0) 

0001?1  «8  FORMAT ( ?H//) 

000121  00  FORHAT(///,SXt*TIME*,f,X,*TEMP*fSX,*M0S*,8X,*KL*t6X, 

1»0WATER*t^Xt*0EIMnS*j3)f,»TwATFR*/1 

000121  50  FORMAT ( 1 6F5.0) 

000121  51  Fn«MAT(7Fl 0.5> 

000121  52  FORMAT(//10*»*GERMINATinN   T I MF  FQU Al  S* , F5 . 0 t 2* ♦ *HOURS*// ) 

000121  30  FHR"AT(A10,F5.0,FStO,5X,A10.2F5.2) 

000  121  31   FO  R  M  A  T ( 1 H 1 1 2  0  X  §  *  L  OC  A  T  T  0  N | *  1 1 X  t  A 1 0 1  3X ♦ *  M  0 1 S  T  URF  f  *  t  F5 . 2  » 

!3X»*P.HY5irAL  TMPEOANcF|*,F5.lt3Xi*l)ATE|*ilXtA10//) 

000121  GOb  GP/100, 


C*««*   INITIALIZATION   OF  PahamFTFRS 


000123  TWATEPL=0. 

000124  DWATERaft. 

000125  CLOKs  0. 

000126  GFRMTs  ft. 
ft00l27  EIONGbO. 

000130  CLOKs  0. 

000131  OT(J)    a  o. 
00013a  ELSTs  ,ft5 
000136  El (J)=  o. 
OOOiai  ELONG*  ft. 
ft001«2  Pl«  3.3 
000143             hO  J»0 

oooiaa         5oo  rfah  5o,(A(T),  Ts  1,500) 

000157  IF(FOFtl)61»500 


C**»*  THIS   SECTION  COMPUTFS   THE   3-MM  RADICLE  EMFRGENcF  FVFM 

C**»*  BY   SIMULATING  THE   ImbTBITIONAL   WATER  UPTAKE  OF  f()T  TON 

C***»  SFEn.     THF  INPUTS  ARE  HOURLY  SOTL  TFMPfcPATuPE  f,  anh 

C**»*  SHR   MQTSTUPE   IN  BAPS. 


000162  -M    J  =  J*1 

00016a  C*LL   M0TST(M,  CLO*) 

000  166  IF(  A(.J)  .GT.1  00.)    A(,l)«  100. 

00ftl75  TFMPsfAfJ">-32.)*. 5555^5^5 
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PROGRAM  LISTING-Continued 


000203  CL0K»  CLOK  ♦  1, 

000205  IF(TEMP.~|.T, 15. 55555)   r,0  TO  15 

000210  IF(TEMP.GF. 32, 22220)   GO  TO  89 

000213  IF(TEMP.GP. 15.55555)   GO  TO  90 

000216  *9  KL»  •.0517136R  ♦   .  000 1  49960*  (TE*P**2. )   ♦  ,03a3398«*M 

1      •   ,000644ft513*(M     **2.)   -  ,0009024209*TFMP*M 

000236  GO  TO  91 

00O236  90   KL«   .033776?  ♦    . 0 0 0 08^5456*TEMP**? •   -  ,00347B82*M 

000247  91   OWATEPaKL*( AO.O  •  TWATERL) 

000253  IF(rTFMP.0E.26.66),ANn.(TFMP.LT.3?.?))    GO   TO  63 

000265  IF(TEMP.GT,32.21   GO  Tn  66 

000270  IF( CTFMP.GT.21 .?) .AND. (TEMP.LT.?6,66))   GO  TO  65 

000302  IF(aFMP.LE.21.?)i,AND.(TE*P.GF.15.55)>   GO  Tn  62 

000315  62  DFLMOSa-,1  133196  ♦   .  0 O 07o«;2«>4*  ( TE*P**2 .  )   «■  .  O 0 1  3^77 7 8* 

1M       ♦   ,001 l774a6*(M  **?.) 

000333  GO  TO  64 

000333  63  OFLMOSa  «, 6954544  ♦   . O 0 1 961 955* f TFMP**2  .  )   ♦  .0833515* 

1M       ♦    .0Q76?6679*f  M     **?.)   -   .0064U228*M  *TFMP 

000353  GO  TO  64 

000353  65  DFLMOSa  -.3583704  ♦   . O 0  1  383 1 8 1  * f TFMP**2  ,  )  -,0350919** 

1M        ♦    ,0035067a8*( M  **?.) 

000371  GO  TO  6fl 

000371  66  DFLMOSa   3.39290*  -   .  0 0  1 9702?*  (  TFMP**2 .  )   -  ,36935a7*M 

1     ♦   ,n0*6«7528*( M     **?,)    ♦  .0«7306203*TFMP*M 

000411  64   IF(OWATFH,LT.OELMOS)GO  TO  10 

000414  TWATEPa   TWATERL  ♦  DWaTER 

000416  GO  TO  16 

000417  15  Kl.aO.O 
0004?0  OWATEP«0.0 

000421  DFLMOSaO.O 

000422  TWATER«TW»TFRL 

000424  1  6  PRINT   51»CLnK»   TEMP,   M,        KL «   QW ATER  t   DFLMOS,  TWaTER 

000446  TWATERL»TWATER 

000450  GO  TO  61 

000u50  10   TWAT£9aTWATFRL   ♦  ONATFR 

000452  PRINT   51fCl°K»   TEMP,   M,       KL,   DWATER,   DFL*OS,  TWaTER 

000474  GFRMTx  rLOK 

000476  PRINT   5?,  GFRMJ 

000503  Ow ATEP*0  . 

000504  TWATERLsO. 

000505  GO  TO  502 

£***«  THIS  SECTTON  CALCULATFS  HYPOCOTYL  ELONGATTON  TN  CM 
C**«*  USING  HOURLY   INPUTS  OF  SOTL   TFMPERATURE   F,  SOTL 
C**«*   MOISTURF   TN   BARS,    AND   PHYSICAL    TMPEOANCF   IN  PSI 

000506  502  KKKa  RERMT 
000510  KNa  KKK  ♦  1 

000512  ja  KKK 

000513  T  T  Ma  J 

000514  22  FrtWMATC      1  X  ,  *T I Mt * , ?X » *TE*PF R A T "  IMF* ♦ 5* , *DF*  ♦  9*  , 

1 *FLONGATION*» 13X,*KNL«, l2Y»*EMA*T*t   6*»*DTIMf *,    a* , *f. ^PFRTENT*) 
00051  4  34  FORMAT (    1  * i Fa . 0 , 5* , Fa . 0 , 7* ♦ F5 . 3 , 8* , F 7 . 3 , 1 O X , F 1 5 . 1 O , Sx 

1  ,F5.2,7V,F6.5.3*»F5.n 
000514  73  ja   J  ♦  1 

000516  TTMa   TIM   ♦    1  , 


PROGRAM  LISTING-Continued 


0005?0  T«   » ( J) 

000523  IF(T,GT.   999.)   00   Tn  501 

000526  ir(  f  T.LT.AO.)  .OR.f  T-.GT.  1  oa.n    GO  Tfj  «6 

c**«*  physical  tmpehancf  is  incpeasfd  when  avfragf  hypocotyl  i  ength 

C**»*  E"U*LS  PL»NTI^G  DFPTh,      IN  CALI*RATTNG  THF   M(jnEl_ ,    IT  WaS 

q***«  pnu^D   THAT   THF  FlFL.fi  ME  ASI'RFD  PT   VAl  UFS   EXPRESSFD   1*4  PSI  SHOULD 

C**«*  HF  "IVI^E*         10.     THF  LOWEST  PFRMISSIRLE   PT   VALUF   TS   3.3.     I N 

C***»  GFNFR4L   PT   VALUFS   Op   &»    1?«    A^D   ?fl    *HF   "EPRFSFNT AT  I V£   OF  LIGHT, 

C**»*  HFD  T  UM »    AMD   SFVFRF   SOTL   PHYSICAL  TmPEDAWCFS. 

0005«1  IF(FLONG.GE.DEPTH)GO   TO  10U 

0005*14  Gn  TO  105 

C*$*S   PT    TS   DFSCRlBFD   IN   STATFMFNT  ma 

000545  1 04  IFCmM.Gptt95.),ANP.(rTM,LT.?43.nPI«6.3-.05a*(TTM.i95.) 

000563  IF(fTTM.GF,?a3.)  ,  A  NO  .  f  T  T  M  ,  LT  .  33*  .  ) )  p  I  »3  .  7- .  0  1  78*  ( T I  H-?a?  .  ) 

000601  IF(TIM,r,E.3^8.)PIaa,5 

000605  IF(PI.LT.T.3)Pls3,3 

000611  1«5   CALL  MOTST(HtTlM) 

00061  3  K^LfJ)    3   K-(7,H,  PI  ,KT) 

000622  EM(J)   *  Kf TtM»PT»FST) 

000631  DF(J)s  KNI.  ( J)*ELST*(EM(  J)   -  ELST) 

0006U3  Ss   fT  -  3?)*.5555S5 

0006^7  IF(S.LT. 21  ,1.1111    GO  TO  7<l 

0006S2  IF(fS.GF.?1.11 11) ,AND.(S.LE.3?.?2?2n    GO  TO  7«? 

000665  IF(S,GT.3?.?222)    GO  T"  92 

000670  7«  cnNs,?0?7yaF-06 

00O672  T^AXr«9?,599  •CON*E*PfS>   -   1  7.690?**  -   1  . 50 1 39* f M*»?) 
1*  2.767?9*M 

000707  GO  TO  91 

O00710  75  D0Ns,fl36166F»1 2 

00071  2  T*AX*«71.445  -   13.66ai*S  ♦   r>o*J*FXP(S)    ♦  6?.U3S0*M 

1-   2.3S855*(M**2)   -  ,54B660*S*M 

O00  732  GO  TO  9"? 

O00732  92  T*AXsS2.88a,5*9fe#9aa9*M.?#?5n39*fM**?)-l  ,fe9967*S*M 

000745  93   DT(.T)s    1.0/TMAX   ♦  DT(J-I) 

000754  IF(FMf JKLT.ELST)    GO  To  ul 

000761  EL(T)=  FL'J-11    ♦  OEfJ) 

C**«*  THIS  SEOTTON  roMPMTFS  PFRCENTAGF,  FMFRGENCF  FROM  THE  AVERAGE 
C**»*   HYpncnTVL  LFNGTH(FLfJ) 

000771  IF(FL"NG.I  T,  1  .01    GO   T n  25? 

C*S*S   TWIS  SECT  TON  CALCULATFS  THE  STATEMENT  NUMBER  OF   T"E  EOUATION 
C«$t$   T"  RE   USE"   IN  CALCULATING  PFRCENT  AGF  FMFRGENCF .   THE  CORPEO  \ 
C*it&  EOUATTOM  HEPENpS  ON  PI  A^T TNG  riEPTH, 

00077a  IF(nEPTw.l  T.1  .8751GCI  TO  1O0O 

000777  IF(HEPTH, GE.6. 8751  GO   To   1 n 0 1 

00t002  NDEPTHs f DFPTH/l ,25)    ♦  .S 

001006  GO   TO  1O0? 

001007  10O0  NP)EpTHsl 
O01011  50  TO  lflfl' 
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PROGRAM  LISTING-Continued 


(01011  100  1   NPEpTH»  A 

101013         1002  GO  T0f200t20l »202,2ft3. 204. 2051 .ndFPTH 

C  APPLICABLE  PA^GF  OF   ELONG   IS   1.0  -   4. ft  CM.     DFPTH»   1,1  CM 

101025  200  EP(  J)«4A.<J553*EL0NG  .  6.6?3B8*(FLnNG**21    ♦    .  239 1  1 6* f EL 0NG**3 )   -  .ft 

126568*EL0NG*M 
I010A6  GO  TO  250 

C  APPLICABLE  PANGF   OF   ELOMG   IS   1,0  -  S.6  CM ,         DFPTH  s  2.5  CM 

»0 1 0«7  201    IF( ffcLONG.LT.1 .0) .OP. 'El  ONG.GT.6.7) )    GO   TO  25ft 

101062  EP(T>*       «2?.*372*EL0NG  ♦  24 . 9q l 3* ( FL0NG**21   -  3.B1217* fELUNG**3) 

1*  ,0?04049*(FLONG**51 
101105  GO  TO  250 

C  APPLICABLE  PA^GF  OF   ELONG   I S    1,0  •  6.6  CM.         DFPTH«  3. A  CM 

101  106  202   IF(fELOWG.LT.l.fl).OP.fELOMG.GT.<S,fe)lGO  TO  250 

1011?1  EP(.J)*     4.34967*M.l?.9i37*EI  ONG+7.47138*(FLONG**21-,012T471*(E 

t(_riNG**5)   •  2.0656P*FLONG*M 

no  1 1 aa  go  to  250 

C  APPLICABLE  RANGF  op   ELONG   IS   1.0  -  7.5  CM,         OFPTH«  5.(1  CM 

1011«5  203  EP(  J)«-1  1  ,6959*FLONG  ♦  5.  (19060*  f  EL  O^G**?)   -   .  0354*86*  ( EL  ONG**4 )  ♦ 

1 1 ,370ft4*(M**2l   -   1 ,3153*EI  0WG*M 
501173  G"  To  250 

C  APPLICABLE  PANGF   OF  El  ONG   I*   1.0  -   7.5  CM,       OEPTHs  6.3CM 

H0U7«  204  EP(  J)«-12.022B*M  ♦   1  3 ,  1 3 1 5*FL0NG  -   8  ,56«7?*  ( El  0NG**2)   ♦  1.61419*(F 

1LONG**31   -    ,00985923*f EL0NG**5)    +   3 . 1 1 80 1  * ( M**2 1    ♦  ,992ft3A*FL0NG*M 

101231  GO  TO  250 

C  APPLICABLE  PANGF  OF  ELOMG   IS   7,4  -   7.5  CM.       DFPTWe  7.5  CM 

101232  205   IF(CEl  ONG.LT.3.5)  .OP.  (El  O^G.GT.7,5))    GO   TO  ?50 

(101245  Ep(  T)»»B,48373*M  ♦  5,O013*ElONG  -   1 .53460* (FLONG**3>   ♦  >38285*rEL 

10NG**4)   •   ,ft303«05*fELONG**5)    ♦   ? . 0752* ( M**?)    ♦    . ft  1 349«*EL ONG*M 

001302  250  EP(T)»  rpfJ1*GD 

001307  IFCPPf JV.LT.EP(J*1>)   FP(j)s  EP(T-I) 

001322  252  El  ST=   OF(.T)    ♦  ELST 

001  326  ELONGs  FL<"J> 

"01331  TTMF(.T)s  TIM 

001334  GO  TO  73 

001335  46  DF( T)s  0. 
001340  KNLfJI*  0. 
001  343  EM(T)»  ft. 
001346  TTMF(J)r  TIM 
"01351  EL(.T)s  FLU-11 
001356  OT(,T)»  riTfJ-ll 
001363  Ep(T)s  FP(J-l) 
001370  GO  TO  73 

001  371  /17   DP(  T)s  1. 

001374  TTMF(.J)s  TIM 

001377  El  (,J)  =  FL? J-11 

001404  Ep(T)s  FPrj-11 

001411  GO  TO  7% 

101412  501   PRINT  2? 

ftO  1 « 1  6  PRINT    3  (it  fTlMF(T)  »    *(T),   HEfllt    El(T)t   KNL  ( T )  «   FMfllt   DT  (  T  )  t  FPfll 

1 »  TsKN  »  J1 

101457  STOP 

101461  END 


SUBROIITTNF  MOIST(Mf    TfLOK  1 

£***«  THE  SFCTI^N  BELOW  FXPRFSSES  ThF  MOISTURE  IN  T HF  S£F[)  ZONF  AS  A 
r**«*   FUNCTTON  OF   TTMF  FOR   A   PARTTCULAR  FTfcLD  TFST 
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PROGRAM  USTING-Continued 


000006  REAL  * 

000006  IF(TCL0X.LT.1?2.)M«,9 

00001  1  IF(  (TCLOK.GF.12?.)  ,ANO,  (TCLOK.LT.16fl.))M*,9+..Ol08*(TCL0K-12?.) 

0  00  0?7  IF( f TCL0K.GF.16A.) . ANO, fTCLOK.LT.216.) )Mxt  ,0 

0  0  00«2  IF( (TCLOK.GF.2i6.) . AND. rTCL0K.LT.?89.) )*«1 . . 0 1 37* ( TCLOK-2 1 6. ) 

000060  IF((TCLOK.GF, 289.). A  NO, (TCLOK.LT.-^A. ))"«?.«♦. 012?* (TCL0K-2A9.) 

000076  IF(TCL0K.r,E.3^8.)M«3, 

000102  RFTHRN 

000103  END 


RFAL  FUNCTION  K(T»M,PT»KT) 

C*»*»  T^Ifl   FUNCTION  CALCULATES  THF  VALUF  OF   EMAXT   AND  KNL   FOR  HYPOCOTYL 

C**»*  EL0N6ATT0N   AS  A  FUNCTTON  nF   TFMPE"ATu«E  F.   MOTSTURE   IN  fURSt  AND 

£***«  PHYSICAL   TMPEOANCF  TN  PSI   BY   US  TNG  LINEAR   INTFRPOL AT  ION   I N  T*0  OR 

C**«*  THRFE  OTHFNSIONS 


000011 
00001  1 
000011 

oooou 

000011 
000013 
OOOOU 
000020 
000022 
0000?3 

oooo?a 

000026 
0000«1 
000043 
000035 
0000^7 
000053 
000055 
000056 
000057 
000061 
000074 
000076 

oooioo 

000102 
000106 
00011 0 

ooon  i 

000112 

oooi  m 

000127 
000131 
000151 
000162 
000171 
000203 


1  1 


DTMFNSinN  TA (6) tHA (fl) ,PTAf 5) 
DTMFNSION  KT(6»4»S) 
RFAL  MA,KTtMtKL«KUfKSHB 

DATA  TA/6O.0,70,0t80.O,P0.0»lO0.0»l0a,0/iMA/0.33,3.0f 
UO,0,li;o>'»Pl*/3,3»16,Oi3?.0,ae.Ot50.0/ 
ITL«ITUsO 
DO   1  !«1,6 

IF(T,GE.TA(T))    GO   TO  1 

ITHI-1 

ITU«I 

GO  TO  3 
CONTINUF 

DTsf  T-TA(TTL)  )/fTA(TTH)-TA(TTD) 
IF(nT.EO.o.)  TTUsTTL 
IMUalMLsO 
DO   ?   I»1  ,'4 

IF(M,GE.MA(I) )    GO  TO  ? 

IML*I-1 

IMUsI 

GO  TO  a 

CONTIMUF 

DM»fM-MA(THL))/fMA(TMD)-MA(TML)) 
IF(OM.En.O.)    T  Ml  Is  T  ML 
IPL«IPU«0 
Dn  5  1*1  ,«5 

IF(PI,GF.°IA(T))    GO   Tn  s 

IPL»I-1 

IPU»I 

GO  TO  6 
CONTINUF 

DP«fPT-PIA(TPL))/fPI*f IPU1-PIA (TPl )) 

IF(np,En.o.)  tpii»tpi. 

D«30RT (DP**?,   t   0***2.   ♦  DT**2.1 

KLsKTf ITL.IML,IPL) 

KUsKT  r ITUt IMU» IPU) 

1F( (DT.GT.0.)  .AND.  (OM.GT.O.) )  Gn  TO  1? 
IF(fDT.r,T.O.)  .AND. (OP, GT. ft.)  )    Gn   TQ  13 


C  CALCULATION  OF  K   WHFN  Mn I S TURF   4NO  PHYSICAL   I MPFD  *  NCE   A " E 

C  BFTWEFN   T  *  8LE  VALUES 
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PROGRAM  LISTING-Continued 


000215  9  K*D*(KJ-KI  )    ♦  Kt. 

0002?2  G"  Tp  in 

C  C*LCUI  ATIONS   TO  FTND  PROPFR   VALUE   OF   K   WHFN   TFMP£RaTUPE  A^q 

C  MOHTURF    ARE  RETWFEM  TARLF  VaLUFS 

000222  12   IF(np,GT.ft,l    GO   T 1  14 

000225  dTFM|_s(ma  f  IM|_)-M) /(Ma'ImL1*  MA(Tmm)) 

000240  SUBI  i«    fOTFML)*fKT(IT!  »TMl,TPL)    -   KT  (  TTL  t  TMU,  TP!  ) 1 

000255  SUBL2«  K T f I Tl • I  ML t 1  PL  1   -  SU«L1 

000265  OTFMUe    f  M  A  (  T  ML  )   -  MT/(MA(TMI)  -ma(ImU>) 

000300  SU8IJ1  *   fOTFMU)*(KT(ITU,  TMI  »TPL)   -  KT ( TTUt TMUf TPL) 1 

000315  SUB'i2«   KT'ITU»IML»IPD   -  SUPU1 

00  0325  KSUR«f  (SU«U?«»SUWL?)*(TAf  ITU)-T)  VfTA(TTL»)«TA(TTL  )  1 

000304  Ka   «>U«U?  -  KSUB 

000346  GO  TO  10 

C  CALCULATIONS  OF  K   WHEN   TEMPFR  AT  IIRF   AND  PHYS  T  C  A  L   I MPFD  A  NC  E  ARE 

C  BFTWEFM   TABLE  VALUES 

000346  13   IF(OM.GT.".)    GO   TO  14 

000351  DTFMLx(PI»(TPL)-PT)/(PlA(TPl )   -  PTA(IPUl) 

000364  SUBI  Is    fOTFML>*fKT(TTL»TMLtTPL)    -   KT  (  T  TL  t  TM|  ,  TP!l)  1 

0004M  SUBL2s  KT  t  l^L  ♦  IML  ♦  IPL>   -  SUP-L1 

00041  1  OTFMUr    rpTA(lPL)    -  P 1 1  /  ( P  T  A  ( I  PL  1    -  PIA(TPU)1 

000424  SUBUla    f  D  T  FMU)  *  ( KT  (  T  T 1 1 .  T  Ml  ♦  T  PI. )    -   K T ( T TU . T ML t T PU ) ) 

000441  S"BU2«   KTriTU»IMLtIPL>   -  SUPU1 

000451  KSU«*f  (SU«U2-SU«L?)*(TA(ITU)'»T))/fTA(lTII)'  -   T  A ( T TL )  1 

000470  K»  SU*U?  *  KSUB 

000472  GO   TO  1ft 

000472  15  IFtOT.GT.O. J   GO  TO  la 

000475  DTFMLs    f  M  A ( T  ML  )   -   M)/(MA(TML )    -  MA(IMU)) 

00051  0  SUBI  lr    f  0  T  FML  i*  ( KT  ( I  Tl.  t  T  Ml  i  T  PI  )   -   KT(  TTt.  ♦  TMH,  TPL  )  ) 

000525  S'l8L2s  KT  (  HL  •  IML  ♦  IPLl   -  SU«L1 

000535  DTFMUs  n I FML 

00O5"36  SUBU1*    fDTFMu)*(KT(TTL»TML  »TPM)    -   KT  (  TTI  »  TMIJ,  TPH)  > 

000553  SUB'I2«  K  T  fl  TL  1 1  ML  1 1 PU 1    -   SU^U  1 

000563  KSUPs    (fSUBU2  -   SIIBL  21  *  (  PT  A  f  I  PU>    -   P P ) / (PI  A ( TPU)    -  PTAUpL>) 

000602  K*  SOPJ?  -  KSUB 

000604  GO  TO  1ft 

C  CALCULATION  OF  K   WHFN   TFmPE&ATUPE»   MOTST[jREt    A N ft  PHVSTC»L 

C  I  MPFD  A  Nf"  E   ARE   BFTWEFN   TABlfc  VALUER 

000604  14  DTFSQ*   SQPT(DM**2  ♦  Dp**2l 

f>006?0  SUBLl*   OIPSO*  (KT  (  TTL  ♦  TMI  f  TPI  )-   K  T  ( I T  L  .  I  MU  .  I  Plj  1  ) 

000640  SUBI.  2s  KT  ( I  Tl  t  IML  1 1  PLl    -  SUPL1 

"00650  SIIBUls   OIFSO*(KT(TTU»TMI.  ,TPL)    -   KT  (  T  T  U  ,  T  Ml  I ,  T  PI  I )  1 

"OO665  SUBU2s  K T ( I TU ♦ I  ML 1 1  PL )    -  SUPU1 

000675  KSU«s    ( (SUBU2  -   SUBI.2)  *  f  T  A  (  TT")   -    T )  )  /  (T A  ( I TU1  -   T  A  (  T  T  |  )  ) 

000714  Ks  SURJ?  •  KSUB 
000716              10   Rf TURN 

000720  EWD 
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TABLE  OF  KT  VALUES 

.C048C832  .01C383691.C139927 
.C08352267  .  013597269  .C  16  2  9  4  7 
.C1132G8  .CC705326 

.C0501412  .013159,.'0t.Cl£77e3 
•C0469919  .CC92C7e^  .C  172229 
.C113818      .0138237  .C123494 

.C07E8747  .0126454  .C152562 
.C04444L4  .  C0795C 1 1 5  .C 19C638 
.C0557594    .012249c  .C226051 

,  CO  8331356. 015699449. C271t:3£ 
•C0C5CCCG  .CC975761  .C196626 
,C065l4e5    .C162666  .C562627 

,C0R9e465    .0149C86  .C33C927 

■C5P517C36 .04352R1 

,C0CCCCC      .CCCCCC  .CCCCCC 


EXAMPLE  RUN 
Input  Data 


,C  19256  1 
C  1  99945 
C  1C2575 

C  2  C  C  A  3  9 
C  196467 


C25281C 
C252F1C 
C431406 

CAe577fc 
C2635AC 


.C629  1C5 
.CCCCCCC 


2.75 
1.65 
.75 

7.P5 
4.95 
1.15 


25 
?5 
9  5 


9.85 
7.55 
3.55 

7.05 
.45 
C.OC 


TABLE  OF  EST  VALUES 

.  85 


1.25 
.  75 
.25 

3.C5 
2.85 
.  75 


,5C 
,65 

15 

95 
C5 


2.75 
.25 

O.CC 


PLACE  M  PI  IDATE  DEPTH  GP 

LUBBOCK  1.0     3.3  4-28-71  5.0089.00 

SEED-LEVEL  TEMPERATURES 


.  15 

1.65 
1.45 

■J  c 

.  _  V 

2.35 
1.55 
.35 

2.25 
1.55 
.35 

1.55 

c.cc 


.35 
.25 

1.35 
.95 
.  15 

1.55 
1.05 
.25 

1.25 
.65 


.  7  5 

C.CC 


69 

68 

69 

69 

69 

68 

67 

65 

64 

62 

61 

60 

59 

58 

57 

56 

55 

54 

54 

55 

58 

62 

68 

72 

75 

78 

79 

79 

78 

76 

74 

71 

69 

67 

66 

65 

64 

63 

62 

62 

61 

61 

61 

61 

65 

68 

72 

75 

80 

83 

84 

84 

82 

81 

78 

74 

72 

71 

69 

67 

67 

65 

63 

63 

61 

60 

60 

62 

63 

67 

71 

74 

76 

79 

80 

80 

79 

78 

76 

74 

72 

70 

68 

67 

66 

64 

64 

62 

61 

61 

61 

62 

65 

68 

74 

76 

80 

82 

83 

83 

82 

81 

78 

76 

74 

73 

71 

70 

69 

68 

67 

66 

65 

64 

63 

64 

65 

68 

71 

74 

76 

79 

80 

81 

80 

79 

77 

75 

73 

72 

71 

70 

69 

68 

67 

66 

65 

65 

65 

66 

68 

70 

74 

77 

79 

80 

80 

80 

79 

78 

77 

76 

75 

74 

73 

72 

71 

69 

68 

66 

64 

63 

63 

64 

66 

68 

72 

75 

77 

79 

80 

80 

79 

78 

76 

74 

73 

71 

69 

68 

66 

65 

64 

63 

62 

61 

61 

63 

66 

67 

71 

76 

79 

61 

82 

80 

79 

78 

77 

74 

72 

70 

70 

68 

67 

65 

65 

64 

64 

63 

63 

64 

66 

68 

71 

76 

78 

82 

84 

84 

84 

82 

80 

77 

75 

73 

71 

70 

69 

68 

67 

66 

65 

65 

64 

65 

65 

66 

67 

68 

71 

73 

73 

73 

72 

71 

69 

68 

67 

66 

66 

65 

65 

65 

65 

65 

65 

65 

66 

67 

69 

72 

71 

77 

79 

80 

81 

80 

79 

77 

75 

72 

71 

68 

67 

67 

64 

63 

63 

62 

61 

61 

63 

66 

68 

72 

74 

80 

81 

82 

83 

82 

81 

79 

76 

73 

73 

73 

71 

70 

69 

68 

67 

66 

65 

64 

64 

64 

66 

68 

70 

72 

73 

73 

74 

75 

73 

73 

71 

69 

68 

68 

66 

65 

64 

63 

62 

62 

61 

60 

60 

61 

63 

65 

67 

69 

72 

74 

76 

76 

76 

76 

74 

73 

69 

66 

65 

63 

62 

60 

58 

57 

57 

55 

54 

54 

57 

63 

65 

70 

74 

77 

80 

81 

82 

81 

79 

76 

74 

71 

69 

68 

66 

65 

63 

62 

60 

60 

58 

59 

60 

65 

69 

71 

76 

79 

80 

81 

81 

79 

78 

74 

72 

71 

70 

68 

67 

66 

66 

65 

9999. 
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Output  Data 


ICATIONi   LUABOCK     MOISTHRFi    1.00     PHYSICAL    IMpFDANCEl  1.1     DATFt  4-2ft-7l 


T  T  MF 

TEMP 

KL 

n  ft* 

DH  A  TFR 

DFLM08 

T w  A  TFR 

1  .0000ft 

20 .55556 

ft-   1  '    ft      J  ■J      1   &  ' 

,90000 

,06679 

5,34327 

•  1 8441 

5.34327 

'ft  -»  ™      SL  » 

2,  00000 

20,00000 

.90000 

,06486 

4 , ft4?5ft 

. 1 685? 

1  ft . 1 8577 

3,00000 

20 .55556 

ft-  >  '  9    *  J 

.90000 

,06679 

4 , 66?96 

.  1 844 1 

1 4 , ft4473 

4,00000 

20 .55556 

,90000 

, 06679 

4,35151 

,18441 

19.?0O24 

9.00000 

20 .55556 

ft>  v '  ft    J  J    >  J  v 

,90000 

,06679 

4.06087 

~  ft  1 1  V  1/  u  * 

•  1 8441 

23.26111 

6,00000 

20,00000 

,90000 

,  06486 

3,6802^ 

•  1 685? 

26.941 39 

7-00000 

19.44Q44 

,90000 

,06299 

3.34?1 0 

•  1 5307 

3ft. 2835ft 

A  .  00  00  0 

*  ft  'i  y  u  v 

,90000 

,05940 

2,95307 

•  1 2346 

33 . ?3656 

9.00000 

1 7.7777ft 

,90000 

•  0576ft 

?, 6974ft 

, 1 0932 

35.93197 

to  0 n n n o 

1  A  66667 

90000 

.05441 

?. 19754 

,08233 

3ft. 331 51 

11      ft  A  A  ft  ft 

l  l  ,  n  o  n  u  o 

1  A  11111 

Oft  ft  n  0 

,  ^  w  v  V  'J 

. ft  5  9R5 

9    9ft31 0 

ft  hQU  ft 

tt  ft  S^XkO 

i  ?. ft  n  ft  a  ft 

I  J ,  J 33 30 

,90000 

. 051  IS 

? - ft?64  ft 

,05704 

a ?  ■Sh ft  1  ft 

11    0  0  0  0  0 

1  A    ft  ft  0  0  ft 

,90000 

"  9  11  y  u  y  11 

ft      ft  ft  ft  ft  ft 

0  .  0  ft  0  0  0 

0  ?    ShfS  1  ft 

14.00000 

1 4.44444 

,90000 

rt .  0  n  n  n  ft 

' '  ft)  \  f  u  <'y>> 

ft  .  0  ft  ft  ft  ft 
ft  u  y  11  y  >' 

0,00000 

4?. 56ft 1  ft 

J0'I|1> 

15.00000 

IT. ftAA89 

4    »  ft  ~  O  *'  U  ~ 

,90000 

0  .  0O0OO 

0 . o  0  00  0 

ft      V  ' '  V 

0,00000 

4? . 56ft 1  ft 

16.00000 

4  ^  ft       V  V 

I    *  ft  'J'J-J 

,90000 

0,00000 

0  .  0  0  0  0  0 

v  ft     y  u  y  '/ 

0.00000 

v  |  W  V  ll  V  u 

4?.56ftl ft 

■ft r.  ft   JO''l  \' 

17,00000 

12,77778 

,90000 

0,00000 

0,0000ft 

0,00000 

4? . 56ft 1  ft 

18,00000 

1?, 22222 

,90000 

0,00000 

0,00000 

0,00000 

4? . 5601 0 

19.00000 

4    '  ft;    *  V  V  V  " 

1 2.2222? 

ft  c  C  C  C  r 

,90000 

0.00000 

y>  0  w  y  ij  y  w 

0  .  0  0  ft  ft  0 

1  1)  U  11  \|  1' 

0    ft  0  0  0  0 

"  &  V  w  V  V  V 

/1  p    Ci|0  t  ft 

20.00000 

,90000 

ft  -  ft  n  ft  n  ft 

ft    ft  ft  ft  ft  ft 

ft   ft  n  ft  ft  ft 

w  1  U  V  v  v  v 

a  ?    ^  A  ft  1  ft 

21  00000 

90000 

ft  -  ft  ft  ft  ft  ft 

0  I u  y  uy  w 

ft    ft  ft  A  ft  ft 

ft       ft  ft  ft  ft  ft 
W  ft  w  v  "  U  " 

Zl  9    ^  K  ft  1  ft 

22.00000 

ft*  ft»  ft  w  u  1/  y  w 

,90000 

.05441 

?. ft!7fll 

.  08?11 

ft  '  '  O  C  J  J 

a  it  SQ7 1  ^ 

23  .00000 

2ft  .  ft  0  ft  ft  ft 

,90000 

.06486 

9  ii  u  ^  u  n 

?.?9615 

. 1 6A5? 

ft   I  O" JC 

46  ft914ft 

24  00000 

????? 

90000 

. 07?89 

?  .  4  1 1 1  1 

, 29594 

49  10661 

25.00000 

»i»  *  ft;  <i  V  ('  V  v 

23 . 44409 

h  J  ft  nmio  ' 

,90000 

,  0  7946 

?.4190X 

. 4  0  ??4 

ft      V  r  &. 

51  74564 

J  I  ft 

26,00000 

25,55556 

,90000 

,08651 

2,44440 

.51622 

54,19004 

27,00000 

26 , 1 1 1  1 1 

,90000 

, 08ft97 

2 , 29630 

,55593 

56 . 48614 

J  \J  ft  ■*  V  "'  J 

24,00000 

26.11111 

,90000 

,08497 

? . 09?  n  fl 

.55593 

54.57811 

29.00000 

25,55556 

,90000 

, 08651 

1 . ft51?7 

1   ft  c  *  J  J  C  ' 

.51 6?? 

ft    J  *  vJ  ft.  C. 

8  ft  *  fl  ^  1  *J  1 
O  V  ft  **  J  1  v  I 

30,00000 

24,44444 

,90000 

,08176 

1 ,59994 

,43934 

6?  «  ft!1 

31  .00000 

23.31333 

C    *  ft 

,90000 

. 077?? 

1 .18751 

, 36595 

61.41 9ft 7 

32.00000 

»  *—  ft        V  W  V  " 

P 1  .  A&fcfe7 

&.  I    1  VVVV  ' 

,90000 

.07080 

1.1  7flftfl 

.  ?6?? 1 

64.591ft7 

W*»ft    '  *  J  w  ' 

33.00000 

?ft . 5555fS 

,90000 

.06679 

1ft ?on 4 

_  <  ft  fl  il  1 

1 

34.00000 

19. naaua 

,90000 

.06?99 

1  U  O  r  7  » 

•  ~  11  j  0  ~ 

.  1  m  ft  7 

ik  A  ^ « ?77<t 

OOi  Jt  '  fr> 

35  00000 

1  ft    ftAft  89 

9  ft  0  ft  ft 

,  ^  U  VI  V  w 

.  ft  6 1  17 

.  ft 9/1  ft  6 

. 1 TAn5 

,  1  3  ~  V  » 

Or  ft_7jjOff 

16 . o  o  o  ft  ft 

1 4 . tlttl 

,90000 

. 059Uft 

.751 9ft 

1  9146 

Atft     1  ft  X  1  ft 

17.0rtrtftft 

17. 7777ft 

.90000 

.  ft>i76ft 

|OOOCu 

1  ftQ19 

Aft  7RQ1T 

39,00000 

17. ???2? 

4    '    ft  ~  C  C   ft,  r 

,90000 

.0560? 

ft  1  *  J  ~  V  « 

6?A0ft 
ft  n  t  "  w  " 

. 09560 

feP- fl 1 714 

39. 00000 

J      ft  >'  V  v'  V  '  ' 

u.  A  &  A  7 

,90000 

,05441 

, 5  7  57  A 

, 08?33 

69.9931? 

40,00000 

1 ft  hbhhl 

A  O  ft  w  W       »»*  ' 

,90000 

,05441 

,54445 

,08233 

70.53757 

41  .00000 

~  *  ft  v  y  V  V  '/ 

16.11111 

,90000 

,  05285 

.50000 

,06944 

71 .03766 

42,00000 

16,11111 

,90000 

,05?85 

, 47366 

, 06944 

71.5113? 

43,00000 

16,11111 

,90000 

,05?85 

,44A63 

,0694ft 

71 .95995 

44,00000 

16,11111 

,90000 

,05?85 

,4249? 

,0694ft 

72.38487 

45,00000 

14,33333 

,90000 

,05940 

,4523? 

.12346 

72.43719 

46,00000 

20,00000 

,90000 

.06486 

,46460 

,16ft5? 

73.30180 

47,00000 

22,2222? 

,90000 

,07289 

,48823 

,?9594 

73.79001 

44,00000 

23.A8489 

,90000 

,07946 

.49147 

.40?24 

74.28350 

49,00000 

26,66667 

,9Qft0ft 

,091 4ft 

.52291 

.62704 

74.80643 

GFR*inaT10n   tI**  FQUAL5       49  HPUPS 


Output  Data— Continued 


T  I  MP 

▼  CMP 

W  Ml 

^  ™  u 

FM  &  *  T 

f")T  T  MP 

U  1   I  n  r 

FMPPRrFMT 

l    r " n 1 t~l 

5o 

ft  ft  1 

ft  ft  1 

ftft7ftftflA1ftft 

A    ?  A 

ft  0  7  0  7 

ft  ft 

51 

Ha 

ft  ft  1 

ft  A  At 

.  u  u  0 

ftftAO<«*;iHftO 

ft  a  a 

ft  1  htl  1 

ft  ft 

HA 

,  "  u  ~ 

ft  ft  0 

.■0  ?  4  A  A 

0  0 
\>  ^  V 

ST 

H9 

ft  1  1 

ftft7ftt>TH70ft 

8    1 5 

OTPfl  ft 

0  0 

54 

H  1 

O  l 

Ana 
9 "  vi 14 

ft  4  i. 

ftft71 ftll PMft 

7.98 

.0505? 

0,0 

p  j 

7  H 

1  ^ 

ft  ft  1 

ft  9  ft 

ftft<»7l  1  37Q  J 

7    7  0 

1  u  *•  JP  1 

ft  ~  0 

U  1  u 

56 

7  tl 

ft  ft  1 

ft  ?  1 
.  U  r  j 

ftftSHPOftRIS 

7  "  U7 

•  05073 

0  0 

7  P 

I  r 

ft  ft  1 
•  n  VJ  " 

ft  ?K 

ft  ft  mR70  A^fc 

7  .  35 

I  0554  7 

0.0 

58 

7  4 

ft  ft  1 

.  0  ?8 

0.051  »>7U5(S7 

7  .  29 

, 06Q04 

0e0 

59 

69 

•  005 

.051 

. 0050086885 

6.76 

.06350 

0.0 

V  ft  V 

60 

67 

,00? 

.053 

.0051322895 

5.8? 

. 06567 

0,0 

6 1 

67 

47  ' 

ft  ft  > 

.  U  1  0 

0051 1??H05 

5.8? 

.06804 

0 1 0 

a  c 

65 

ft  ft  3 
,  "  vi  * 

nTa 
•  u  *  0 

4,87 

•  07022 

0  ~  0 

61 

ft  A  5 

•  n  u 

ft  ft  ft 

#  u  y  u 

1  05 

ft7?1U 

0  0 
II  ,  11 

6zi 

0  i 

A  ft  5 

ft  A  4 

1  01 

a  7 11  a  l. 

.  II  r  *4  U  O 

ft  0 

U  £  U 

65 

6  1 

ft  ft  1 

ft  fl  1 

.  U  M  J 

3  00 
£t7T 

ft  7  65  k 

0  0 
II  #  u 

66 

A 

ft  ft  1 

•  1  •  VJ  ' 

ft  11  ti 
|U*I4 

n  ft      A/1  A0 1  ft 

2.5? 

. 0  7A66 

0.0 

67 

6  A 

ft  ft  1 

ft  fl  t. 

?  .  5? 

.08076 

ft  ~  ft 

U  £  U 

68 

6? 

Aft? 

n  a  7 

n  ft  Sfl  a  1 P0 1 Q 

3,46 

.0*286 

0.0 

69 

65 

ft  ft  ? 

.  W  *•  T 

%  V  '/  J  3  /  "M^  1  M 

1  05 

ft  ft 

7n 

A7 
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PART  4.-SIMCOT  II:  A  SIMULATION  OF  COTTON 

GROWTH  AND  YIELD 

By  J.  M.  McKinion,  D.  N.  Baker,  J.  D.  Hesketh,  and  James  W.  Jones2 

INTRODUCTION 


On  the  following  pages  we  document  a  seg- 
ment of  our  work  in  the  simulation  of  cotton 
growth  and  yield  and  provide  operating  instruc- 
tions for  the  resultant  computer  model  SIMCOT 
II. 

This  work  began  as  an  effort  to  assess  the 
theoretical  yield  limits  in  commercial  upland  cot- 
tons through  the  calculations  of  photosynthate 
production  and  respiratory  losses  (2,  3) 3  and 
evolved  into  an  analysis  of  the  physiological  rea- 
sons for  the  failure  of  these  cottons  to  attain  this 
potential.  Stapleton  (7)  and  Stapleton  and  Mey- 
ers (9)  had  called  for  the  application  of  systems 
methodology  to  this  problem  for  the  purpose  of 
design  and  optimization  of  machinery  arrays, 
and  this  work  resulted  in  the  first  digital-com- 
puter simulation  of  cotton  growth  (8).  Similar 
work  was  begun  independently  and  at  about  the 
same  time  by  A.  B.  Hearn  (-4)  in  Uganda.4 

SIMCOT  II  is  a  direct  descendent  of  SIMCOT, 
which  was  developed  by  Duncan  (5).  The  over- 
all approach  is  the  same:  the  calculation  of  daily 
production  and  distribution  of  photosynthate. 
The  model  continues  the  same  philosophy  of 
fruiting,  the  triggering  of  abscission  of  fruit, 


1  Cooperative  research  of  Agricultural  Research  Serv- 
ice and  the  Mississippi  and  South  Carolina  Agricultural 
Experiment  Stations. 

2  Electrical  engineer,  research  agronomist,  plant 
physiologist,  and  agricultural  engineer,  Southern  Re- 
gion, Agricultural  Research  Service,  U.S.  Department  of 
Agriculture,  P.O.  Box  5465,  Mississippi  State,  Miss. 
39762. 

3  Italic  numbers  in  parentheses  refer  to  items  in  "Liter- 
ature Cited,"  p.  82. 

4  Personal  communication,  1970. 


and  delays  in  node  formation  in  response  to 
physiological  stress  in  the  form  of  carbohydrate 
shortage,  and  it  continues  to  limit  above-ground 
vegetative  growth  relative  to  root  growth  in  re- 
sponse to  moisture  stress.  Development  is  still 
programed  in  physiological  time  (a  function  of 
temperature) . 

There  are,  however,  a  number  of  fundamental 
changes.  A  plant-map  subroutine  has  been  add- 
ed, which  keeps  track  of  the  age,  weight,  and 
nutritional  status  of  fruit  at  every  node.  This 
provides  an  interface  of  insect  damage  routines. 
A  nitrogen-balance  subroutine  has  been  added. 
Light  interception  is  based  on  plant  height  rath- 
er than  leaf -area  index.  Height  is  a  useful  index 
of  the  overall  foliage  display  and  is  not  density 
dependent  as  is  leaf-area  index. 

The  systems  analysis  has  resulted  in  other 
basic  changes.  We  have  found  that  carbohydrate 
reserves  are  all  available  on  a  temporary  basis 
and  (now)  may  approximate  30%  of  the  dry 
leaf  weight.  We  have  found  that  only  squares 
(about  12  days  old)  are  abscised  in  response  to 
carbohydrate  stress  and  only  squares  within  a 
few  days  of  bloom  and  very  small  bolls  are  ab- 
scised in  response  to  nitrogen  stress.  The  most 
fundamental  advance  of  SIMCOT  II  lies  in  the 
abolition  of  the  "standard  plant"  as  a  means  of 
calculating  potential  growth.  The  logic  replacing 
the  standard  plant  was  essential  to  the  simula- 
tion and  incorporates  the  notion  of  senescence  of 
stem  and  root  tissue.  This  will  be  described  in 
detail  elsewhere.  These  changes  represent  new 
knowledge  about  the  physiology  of  cotton,  which 
could  not  have  been  obtained  through  classical 
reductionist  experimental  research. 
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VALIDATION 


SIMCOT  II  is  essentially  a  carbohydrate  bal- 
ance. Beginning  with  emergence,  light  intercep- 
tion is  calculated  daily  from  plant  height.  From 
this,  photosynthesis  is  calculated  for  a  unit  of 
ground  area.  Then,  light  respiration,  mainte- 
nance respiration,  and  growth  respiration  are 
calculated  and  subtracted  from  photosynthesis  to 
give  a  net  increment  of  carbohydrate  available 
per  plant  for  growth  on  that  day.  Daytime  and 
nighttime  increments  of  growth  of  roots,  stems, 
leaves,  and  fruit  are  calculated  separately.  The 
decision  as  to  whether  or  not  to  grow  leaf  and 
stem  tissue  is  based  on  estimated  plant  water 
stress.  All  potential  growth  is  based  on  tempera- 
ture. 

Leaf  weights  were  obtained  weekly  from  large 
samples  of  plants  grown  in  State  College,  Miss., 
in  1969.  From  these  data  a  table  of  daily  weight 
increments  was  constructed.  A  drought  early  in 
1969  caused  abnormally  small  leaves.  Therefore, 
to  obtain  the  potential  (well-watered)  leaf  in- 
crements needed  by  SIMCOT  II,  we  multiplied 
the  1969  data  by  a  factor  (LEFADD)  to  obtain 
reasonable  leaf  weights  in  the  simulations  (ta- 
ble 4-1) .  The  system's  temporary  carbohydrate 
storage  capacity  is  equal  to  30%  of  the  leaf 
weight.  Maximum  carryover  time  is  1  day.  Leaf 
senescence  is  simulated  by  subtracting  from  the 
leaf  weight  the  increment  added  70  days  previ- 
ously. 


Table  4-1. — Factors  to  be  used  to 
adjust  leaf  area  production 


Plant 

population 

LAFADD 

20,498 

1.75 

41,000 

1.35 

80,000 

1.00 

125,000 

1.00 

Stem  growth  was  developed  as  follows:  Stem 
weights  from  the  1969  weekly  plant  samples 
were  used  to  provide  potential  stem  weight  in- 
crements for  the  first  42  days  of  growth.  From 
day  10  to  day  42  the  growth  data  fit  the  following 
expression: 

a^=0.2+Q.06  (STMWT) ,  (4-1) 

where  ±W  is  the  potential  stem  growth  and 
STMWT  is  the  accumulated  stem  weight  in 
grams. 


After  42  days,  potential  stem  growth  was  ob- 
tained from  the  expression 

aTF=0.2+0.06  (STMWT— J24) ,  (4-2) 

where  ATI7  is  change  in  weight  in  grams  per  day, 
STMWT  is  stem  weight  in  grams,  and  I24  is  stem 
growth  24  days  earlier. 

Potential  root  growth  is  computed  in  the  same 
way  as  stem  growth,  except  that  it  is  only  10  % 
as  large  and  is  not  affected  by  moisture  stress. 

The  growth  of  each  fruit  is  kept  track  of  indi- 
vidually in  two-dimensional  matrices  (one  axis 
representing  the  main-stem  node  number  and  the 
other  axis,  the  fruiting-branch  node  number). 
Temperature  effects  are  accounted  for  in  com- 
puting the  date  of  initiation,  bloom,  and  boll 
opening.  Potential  weight  increments  for  each 
fruit  are  taken  from  a  table  of  weight  incre- 
ments versus  fruit  age.  The  data  in  that  table 
are  taken  from  fruit  grown  with  an  abundant 
supply  of  carbohydrates. 

The  carbohydrate  requirements  for  potential 
growth  of  all  organs  is  summed  and  then  divided 
into  the  net  carbohydrate  available.  All  organ 
weights  are  incremented  by  that  fractional 
amount  of  their  respective  potential  growth.  If 
the  ratio  is  greater  than  1,  tluf excess  is  stored  in 
temporary  reserve.  Any  excess  beyond  30  %  of 
leaf  weight  is  assigned  to  the  stem  weight  and 
root  weight. 

When  the  first  square  is  6  days  from  bloom,  a 
term  called  BOLINC  is  computed  as  the  ratio  of 
actual  to  potential  fruit  growth.  If  BOLINC  is 
less  than  0.85,  stresses  are  said  to  exist,  which 
cause  the  squares  to  abscise  and  delay  the  forma- 
tion of  new  nodes,  as  shown  in  the  flow  charts 
below.  All  fruit  within  the  appropriate  age  brac- 
ket are  shed  8  days  from  the  occurrence  of  the 
stress. 

The  Crops 

One  crop  used  to  verify  our  simulation  was 
grown  in  State  College,  Miss.,  in  1961  by  Bruce 
and  Romkens  (U).  Briefly,  the  treatment  they 
used  was  as  follows:  The  cotton  variety  was  a 
doubled  haploid,  'Deltapine  M8948'.  Before 
planting,  fertilizer  was  broadcast  at  the  rates  of 
75  lb  N,  44  lb  P,  and  83  lb  K  per  acre.  Three  side- 
dressings  of  75  lb  N  each  were  applied  at  4-week 
intervals  after  planting.  The  plants  emerged  on 
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/lay  9  and  were  uniformly  spaced  in  91-cm  rows 
I  20,498  plants  per  acre.  The  soil  was  irrigated 
o  field  capacity  whenever  tensiometer  readings 
eached  0.3  bar.  Insect  control  was  nearly  com- 
pete. Ten  plants  were  mapped  weekly,  and  the 
tatus  of  the  fruit  at  each  node  was  recorded.  We 
ummarized  those  data  to  produce  weekly  maps 
if  an  average  or  representative  plant. 

Another  crop  grown  commercially  and  de- 
cribed  by  Jenkins  et  al.  (6)  was  planted  in 
.01.6-cm  rows  at  41,000  plants  per  acre  in  1972 
n  Copiah  County,  Miss.  At  planting,  fertilizer 
vas  banded  at  the  rates  of  20  lb  N,  17.5  lb  P,  and 
13  lb  K  per  acre.  Some  moisture  stresses  were 
illowed  to  occur  during  the  season.  Again,  insect 
:ontrol  was  very  good.  Square  and  boll  counts 
vere  made  weekly  on  30  meters  of  row. 

Results 

More  detail  on  these  validation  experiments 
:an  be  found  in  papers  by  Baker  et  al.  (1)  and  by 
renkins  et  al  (6).  Main-stem  node  number  and 
Suiting  site  production  in  the  1961  crop  are  pre- 
:ented  in  figure  4-1.  The  data  describe  a  typical 
sigmoid  growth  curve.  Growth  is  exponential  at 
iirst,  becoming  linear  as  maintenance  respira- 
;ion  becomes  significant  and  leveling  off  some- 
vhat  as  carbohydrate  shortages  brought  on  by 
;he  high  demands  for  boll  growth  delay  the  for- 
nation  of  new  nodes. 

Real  and  simulated  fruit  production  is  pre- 
sented in  figure  4-2.  To  track  square  production 
his  well  early  in  the  season,  the  model  was  pro- 
gramed to  abscise  pinhead  squares  (1  day  old) 
n  response  to  solar  radiation  levels  above  700 
y/day.  The  carbohydrate  stresses  are  mild  at 
:irst,  becoming  more  severe  as  the  season  pro- 
gresses until  some  of  the  bolls  mature  and  open 
iround  September  14.  Day-to-day  variation  in 
;he  stress  was  caused  by  variations  in  the  weath- 
;r  (mainly  solar  radiation) . 

Two  points  should  be  mentioned  here  concern- 
ng  the  development  of  this  simulation:  First,  in 
)rder  to  track  properly  the  early  onset  of  stresses 
(as  evidenced  by  square  shedding  and  a  leveling 
)ff  of  site  production  in  the  real  system) ,  Ave  had 
:o  acknowledge  the  existence  of  a  large  vegeta- 
;ive  sink.  Numerous  mechanisms  were  tried  and 
coefficients  used  before  we  developed  equation 
1-2.  This  equation  states  that  potential  stem 
?rowth  is  proportional  to  the  weight  of  the 


vegetative  sink  and  that  tissue  no  longer  contrib- 
utes to  sink  strength  (capable  of  cell  wall  thick- 
ening) after  24  days.  The  second  point  is  that  all 
earlier  (unvalidated)  versions  of  SIMCOT  were 
based  on  the  assumption  that  the  fruit  is  most 
likely  to  abscise  in  response  to  stress  at  bloom 
(about  26  days)  and  that  progressively  greater 
stresses  would  bracket  that,  with  wider  and  wid- 
er age  envelopes  of  fruit  abscised.  To  accomplish 
this  simulation,  we  were  forced  to  abandon  that 
assumption  in  favor  of  abscission  at  an  earlier 
age  (12  days).  Depending  on  stress  intensity 
then,  the  present  model  marks  squares  8  to  13 
days  old,  and  they  are  16  to  21  days  old  at  ab- 
scission. Abscission  of  any  bolls  ruins  the  simu- 
lation. We  believe,  therefore,  that  boll  shed  re- 
sults from  nitrogen  stress. 

Figure  4-2  shows  apparent  regrowth 
(squares)  on  the  140th  day.  We  had  stopped 
mapping  the  real  plants  before  that  time,  so  no 
data  are  available  to  verify  this.  The  model  pre- 
dicts regrowth  because  the  maturing  of  some 
bolls  made  additional  photosynthate  available 
for  development  of  new  meristems. 

The  model  crop  reached  a  maximum  leaf-area 
index  (LAI)  of  4.2  on  day  95  (August  12)  and 
yielded  2.98  bales  per  acre. 

The  computer  output  for  the  1972  Copiah 
County  crop  is  presented  under  "Example 
Runs."  This  simulation  was  obtained  with  the 
same  program  as  above.  The  real  plants,  on  the 
average,  and  the  model  plants  both  produced 
seven  bolls  for  a  yield  of  1.68  bales  per  acre. 
Again,  fruiting  was  simulated  almost  perfectly. 
This  crop  abscised  eight  young  bolls  in  response 
to  nitrogen  stresses. 

We  feel  that  this  is  a  minimal  validation  ef- 
fort. SIMCOT  II  obviously  simulates  Delta  cot- 
tons well  in  the  Midsouth.  We  expect  that  it  will 
do  well  in  the  Southeast  and  in  much  of  Texas. 
At  present  certain  modifications  are  necessary 
for  use  on  the  Texas  High  Plains  and  in  dryland 
areas.  Generally,  these  modifications  are  simple 
to  make  and  should  be  considered  in  the  follow- 
ing order: 

1.  Make  sure  that  the  algorithms  in  PNET  for 
computing  plant  height  and  light  interception 
are  performing  properly  for  your  crop.  This  has 
required  modification  for  "okra  leafed"  cottons 
and  for  High  Plains  varieties. 

2.  Be  sure  first  square  occurs  on  the  proper 
date.  For  the  High  Plains  varieties  a  different 
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number  of  physiological  days  to  first  square 
must  be  used. 

3.  The  WATERZ  subroutine  is  simple.  Under 
dryland  conditions  modifications  in  selecting 
plant  water  stress  levels  may  be  needed. 


Weaknesses  in  the  simulation  in  these  areas 
have  pointed  to  potentially  productive  future  ex- 
periments. As  new  information  becomes  avail- 
able, we  (and  we  hope  others)  will  make  appro- 
priate modifications  in  the  model. 
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FIGURE  4-1. -A  season's  time  course  of  main-stem  node  and  fruiting  site  development.  Open  circles  and  lines  trace  the 
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zu,«ye,  ii.uuu,  and  SO, 000  plants  per  acre,  respectively. 
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o  o  o  Real  Bolls 

•  •  •  Sim.  Bolls 

□  □  a  Real  Squares 

60  -      ■  ■  ■  Sim.  Squares  ■ 
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Days  from  Emergence 

FIGURE  4-2.— Seasonal  time  course  of  fruiting  for  the  real  crop  and  for  simulated  crops  at  20,498  plants  per  acre  under 

normal  and  all  clear  skies. 
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DESCRIPTION  AND  FLOW  CHARTS 


Q     START  ) 


PROGRAM 


THE  MAIN  PROGRAM  INITIALIZES  ALL  VARIABLES,   READS   IN  WEATHER  DATA ,  PLANT 
MANAGEMENT  DATA  AND  CALLS  ALL  SUBROUTINES  TO  GROW  THE  PLANT.     AFTER  THE  PLANT 
HAS  BEEN  GROWN  TO  THE  END  OF  THE  SEASON,  THE  MAIN  PROGRAM  THEN  PRINTS  PERTINENT 
INFORMATION:  SUCH  AS,  BALES  PER  ACRE,  NUMBER  OF  OPEN  BOLLS.     THE  USER  CAN  CAUSE 
THE  PROGRAM  TO  LIST  THE  PLANT  MAP  AS  OFTEN  AS  DESIRED  OR  NOT  AT  ALL.     IF  THE 
USER  DESIRES,  HE  CAN  ALSO  MAKE  CHANGES  IN  THE  FRUIT  MATRIX  TO  SIMULATE  INSECT 
DAMAGE. 


STOP 


ROUTINE  SUNTYM 


READ: 

DAY  OF  YEAR, 
LATITUDE,  , 
V DECLINATION  / 


THIS  PROGRAM  COMPUTES  THE  LENGTH  OF  THE  DAY  FOR  ANY  DAY  OF  THE  YEAR. 


™c>cM»,r>Tc.M-(-SIN(LATITUDE)*SIN(OECLINATION) 
COS(SUNRISE)-(  co$jLATtTuDES4COs!DECLlNATlON) 


DAYLENGTH=2*(12.0-SUNRISE) 


(  RETURN 
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SUBROUTINE  WATERZ 


REAL 

PAN  EVAPORATION, 
RAINFALL,  Et, 
\H,0  CAPACITY  OF  SOIL/ 


ADJUST  ET 
FOR  SOIL  H20 
CONTENT 


(1) 


ADD  RAIN 
TO  SOIL 
H,0 


THIS  PROGRAM  ADJUSTS  SOIL  MOISTURE  FOR  EVAPORATION  AND  RAINFALL  AND 
EVALUATES  PLANT  STRESS   IN  TERMS  OF  WATER  REMAINING   IN  THE   SOIL  AND  THE 
PAN  EVAPORATION  FOR  THE  DAY,  ARBITRARILY.     CLIMAT     (JJ,4)   IS  RAINFALL  AND 
CLIMAT   (JJ,5)    IS  PAN  EVAPORATION   FOR  THE  JJTH  DAY.     RUNOFF   (OR  SOAKTHROUGH) 
IS  CALCULATED.     MOISTURE  STRESS  IS  CALCULATED  FROM  THE  COMBINATION  OF 
SOIL  WATER  CONTENT  AND  EVAPORATIVE  DEMAND  AS  MEASURED  BY  PAN  EVAPORATION. 


(1)  AND  (2)  ARE  ARBITRARY  RELATIONSHIPS. 


H20  REMOVED 
FROM  SOIL  = 
PAN  EVAP.  * 
ET  (ADJUSTED) 


H20  REMOVED 
=  PAN  EVAP. 


SOIL  H20  = 
SOIL  H20  - 

H20 
REMOVED 


STRESS  = 
f(EVAP,  SOIL) 
H20) 


(2) 


SUBROUTINE  PHZDAZ 


CALL: 

MAXIMUM  AND  MINIMUM  TEMPS.,  LENGTH  OF 
DAY,  FACTORS  CONVERTING  MAX  AND  MIN 
TEMPS  TO  DAY  AND  NIGHT  AVERAGE  TEMPS. 


COMPUTE  DEVELOPMENT  RATE, 
ISOPHASE  OR  PLASTOCHRON 
AS  f(T) 


THIS  PROGRAM  CALCULATES  THE  LENGTH  OF  EACH  PHYSIOLOGICAL  DAY  AND 
NIGHT  BASED  ON  THE  ESTIMATED  AVERAGE  TEMPERATURE  OF  EACH  IN  °C.  One 
PHYSIOLOGICAL  DAY  IS  A  24  HOUR  PERIOD  IN  WHICH  THE  AVERAGE  TEMPERATURE 
WAS  26°C.     IF  THE  AVERAGE  TEMPERATURE  WAS  LESS  THAN  26°C,  THEN  WE  HAVE 
A  FRACTION  OF  A  PHYSIOLOGICAL  DAY.     IF  THE  AVERAGE  TEMPERATURE  IS 
GREATER  THAN  26°C,  THEN  WE  HAVE  A  PHYSIOLOGICAL  DAY  PLUS  A  FRACTION. 


COMPUTE  DEVELOPMENT  DURING 
DAY  AND  DURING  NIGHT  AS 
FRACTION  OF  STANDARD  PLANT 


DAY  PLUS  NIGHT  DEVELOPMENT 
PHYSIOLOGICAL  DAY  AS 
FRACTION  OF  CALENDAR  DAY 


PHYSIOLOGICAL 

AGE  = 

PHYSIOLOGICAL 

AGE  + 

PHYSIOLOGICAL 

DAY 

C    RETURN ^) 
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SUBROUTINE  PNET 


CALL 

CLIMATE 

INFORMATION 

LYT 

Z/R 

:pt  =  k* 

)HSP 

PSTAND  =  a  + 
b*WATTSM  + 
c*WATTSM"2 


CALCULATE 

PTS 

REDUCTION 

FACTOR 

(PTSRED) 

THIS  SUBROUTINE  CALCULATES  THE  DAY'S   INCREMENT  OF  NET  PHOTOSYNTHATE 
PRODUCTION  PER  PLANT.     THE  FRACTION  OF   INCIDENT  LIGHT   INTERCEPTED  (LYTCPT) 
BY  THE   PLANT   CANOPY   IS   COMPUTED  FROM  EMPIRICAL   DATA   BASED  ON   PLANT   HEIGHT  (Z) 
PTSRED  IS  THE  FACTOR  BY  WHICH  LEAF  WILTING  REDUCES  THE  RATE  OF  PHOTOSYNTHESIS 
PSTAND  IS  POTENTIAL  GROSS  PHOTOSYNTHATE  PRODUCTION  BY  THE  PLANT  CANOPY  BASED 
ON  DAILY  TOTAL  SOLAR  RADIATION   (WATTSM).     THE  POTENTIAL  DAY'S  GROSS  PHOTO- 
SYNTHATE PRODUCTION   (PSTAND)   IS  REDUCED  BY  THE  WATER  STRESS  FACTOR  (PTSRED) 
AND  BY  LYTCPT  AND  FINALLY  BY  A  PLANT  POPULATION  FACTOR   (POPFAC)  TO  GIVE 
PHOTOSYNTHATE  PRODUCTION  ON  A  PER  PLANT  BASIS   ( PPLANT ) .     THIS  IS  BASED  ON 
EXPERIMENTS   IN  INTACT  CANOPIES  AT  300  PPM  C02.     PPLANT   IS  THEN  ADJUSTED  FOR 
AN  AVERAGE  DAILY  C02  LEVEL  ABOVE  300  IN  FIELD  AIR.     A  PROVISION  IS  MADE  FOR 
FURTHER  ADJUSTMENT  TO  ACCOUNT  FOR  THE  EFFECTS  OF  CO-,  FERTILIZATION  ASSUMING  A 
RELEASE  OF  200  LB/ACRE/HR  FOR  FIVE  MIDDAY  HOURS.     LIGHT  RESPIRATION  (LYTRES ) 
IS  A  FUNCTION  OF  TEMPERATURE  AND  PROPORTIONAL  TO  PHOTOSYNTHATE  PRODUCTION. 
MAINTENANCE  RESPIRATION  IS  PROPORTIONAL  TO  PLANT  WEIGHT.     GSUBR  IS  GROWTH 
RESPIRATION. 


PPLANT  =  PSTAND 
*LYTCPT*POPFAC 
PTSRED 


PPLANT  =  PPLANT 
*F5h 


RSUBL  =  a 
b*TDAY 


LYTRES  = 
RSUBL*PPLANT 


BMAIN  =  PLANTW 
*RSUBO*(DAYTYM 
+NYTTYM) 


PTS  =  PPLANT  - 
LYTRES  -  BMAIN 


PTS 


(1  +  GSUBR) 


^  RETURN 


CALL: 

PCOT , FAGE , FAGV , PBOLL 


CALCULATE  P 
REQUIREMENTS  FOR 
ROOTS,  STEMS, 
AND  LEAVES. 


SUBROUTINE  QPREQZ 


THIS  SUBROUTINE  CALCULATES  THE  REOUIRED  PHOTOSYNTHATE  FOR 
GROWTH  OF  EACH  PLANT  PART:     ROOTS,  STEMS,  LEAVES,  AND  INDIVIDUAL 
FRUIT  WHICH  ARE  OLDER  THAN   22  DAYS. 


CALCULATE  P 
REQUIREMENT  FOR 
FRUIT  OLDER 
THAN  22  DAYS. 


^   RETURN  J 
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SUBROUTINE  PQDAYZ 


CALL: 

STD.  P  REQUIREMENT,  STRESS, 
PTOTAL ,  RESERVES  IN  STALKS 
AND  LEAVES 


INITIALIZE  ROTW 
AND  STMW  WITH 
YESTERDAY'S  ROOT 
WT  AND  STEM  WT 


NO 

PREC 

=  STD 

AW  FOR  BOLLS, 

ROOTS,  FLOWER  AND 

RESERVES  ONLY 

DIVIDE  P  PLUS 
RESERVES  AMONG 
ALL  PLANT  PARTS 


INCREASE  ALL 
PLANT  PARTS 
STD  AW 

THIS  PROGRAM  COMPUTES  THE   PHOTOS Y NTH AT E  USED  FOR 
PLANT  GROWTH  FOR  THE   DAY.     STMW  AND  ROTW  ARE  SET  TO 
TODAYS  STEM  AND  ROOT  WEIGHT  BEFORE  ANY  GROWTH  OCCURS . 
THESE  TWO  VARIABLES  ARE  THEN  USED   IN  PLTMAP  TO  RETIRE 
STEM  AND  ROOT  MATERIAL  OLDER  THAN  24  DAYS  FROM  THE 
RESPIRING  8IOMAS.     MAXIMUM  CH?0  RESERVE  SIZE   EQUALS  30 
PERCENT  OF  THE   LEAF  DRY  WEIGHT.      IT   IS  ALL  AVAILABLE  ON 
ANY  GIVEN  DAY.     PTOTAL  =   PN  +  RESERVES.     EXCESS  PHOTO- 
SYNTHATE  BEYOND  THAT  NEEDED  FOR  GROWTH  AND  RESERVES  IS 
ACCUMULATED  AS  DRY  MATTER   IN  THE  ROOTS. 


STORE 
SURPLUS 


^  RETURN^ 


DIVIDE  P  PLUS 
RESERVES 
AMONG  BOLLS, 
ROOTS,  FLOWER 
AND  RESERVES 


EVALUATE 
CH20  STATUS 


^   RETURN  ^) 


INCREASE  BOLLS, 
ROOTS,  FLOWERS, 
RESERVES  STD  aW 


STORE 
SURPLUS 


SUBROUTINE  PQNYTZ 


CALL: 
STD  CH,0 
REQUIREMENT, 
RESERVES 


THIS  PROGRAM  CALCULATES  THE  PHOTOSYNTHATE  REQUIRED 
FOR   PLANT  PARTS   FOR  THE  NIGHT  AND  COMPUTES  THE  WEIGHT 
GAINS  EXCEPT  FOR  FRUIT.     IT  ALSO  COMPUTES  WHETHER  BOLL 
SET  WILL  OCCUR  BASED  ON  THE  CALCULATED  CARBOHYDRATE 
STRESS  OR  LACK  OF   IT.     POLYNA   IS  THE  VARIABLE  USED  TO 
DETERMINE  BOLL   SET  AND   IT  GIVES  A  VALUE,   SIGNALS  THAT 
A  BOLL  MAY  BE  SET  IF  A  BLOOM  IS  PRESENT. 


NO 

DIVIDE  AVAIL. 
RESERVES  AMONG 
PLANT  PARTS 

«a  

INCREASE  PLANT 

PARTS 

STD.  AW 

STORE 
SURPLUS 

RETURN  ^) 
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SUBROUTINE  NITR 


CALCULATE  THE  ROOTING 
VOLUME  TO  DETERMINE 
AMOUNT  OF  ORGANIC 
MATTER  AVAILABLE 


DETERMINE  DATE  OF  SIDE  - 
DRESSING  APPLICATION 
AND  ON  DATE  ADD  APPLI- 
CATION TO  NITROGEN  PART 


DETERMINE  MAXIMUM  STORAGE 
CAPACITY  OF  PLANT 

fUuJ 


DETERMINE  TODAYS 
NITROGEN  REQUIREMENT 
f(MO 


THE  NITROGEN  SUBROUTINE  CALCULATES  A  NITROGEN  BALANCE  FOR 
THE  PLANT.     NITROGEN  REQUIREMENTS  FOR  STEMS,  ROOTS,  AND  LEAVES  ARE 
CALCULATED  AS  A  FUNCTION  OF  INCREASE  OF  WEIGHT  OF  THE  GROWING 
TISSUES  OF  THOSE  PLANT  PARTS.     THE  SEED  AND  BURR  REQUIREMENTS  ARE 
CALCULATED  AS  A  FUNCTION  OF  TOTAL   FRUIT  WEIGHT.     NITROGEN  UPTAKE 
IS  CALCULATED  ON  A  PLANT  BASIS  AS  A  FUNCTION  OF  WATER  STRESS. 
THIS  NITROGEN   IS  TAKEN  FROM  A  NITROGEN  POOL   IN  THE  SOIL  THAT 
CONSISTS  OF  RESIDUAL  NITROGEN   FROM  THE  PREVIOUS  YEAR,  NITROGEN 
FROM  DECOMPOSITION  OF  ORGANIC  MATTER,  AND  NITROGEN  FROM  PRE- 
EMERGENCE  AND  SIDEDRESSING  APPLICATIONS. 

WHEN  THE  PLANT  DEMAND  EXCEEDS  WHAT  CAN  BE  TAKEN  UP  OAILY,  A 
NITROGEN  STRESS   (NSTRES)    IS  DETERMINED  FROM  THE  SEVERITY  OF  THE 
SHORTAGE.      IF  MORE  NITROGEN   IS  TAKEN  UP  THAN  CAN  BE  USED,  THEN 
THIS  EXCESS  NITROGEN   IS  STORED  IN  LEAVES,   STEMS,  AND  ROOTS  AND 
THE  RESERVE  NITROGEN  THAT  THE  PLANT  CAN  DRAW  ON  FOR  GROWTH  IS 
CALCULATED  AS  A  FUNCTION  OF  TOTAL  STEM,   ROOT  AND  LEAF  WEIGHT. 
THUS  WHEN  THE  PLANT  IS  IN  A  SHORTAGE  SITUATION  IN  WHICH  THE  DEMAND 
IS  MORE  THAN  SUPPLY  OF  NITROGEN  THAT  CAN  BE  TAKEN  UP   FROM  THE  SOIL 
POOL  OF  NITROGEN  BY  THE  ROOT  SYSTEM,  THE  PLANT  CAN  DRAW  ON  THE 
RESERVE  NITROGEN  POOL  WHICH  CONSISTS  OF  NITROGEN  STORED  IN  ROOTS, 
STEMS,   AND  LEAVES.     THUS  A  COMPLETE  NITROGEN  BALANCE   IS  PERFORMED 
BY  THIS  SUBROUTINE. 


DETERMINE  NITROGEN 
UPTAKE  AS  FUNCTION 
OF  WATER  STRESS 


YES 

DETERMINE 
NITROGEN 
STRESS 

DISTRIBUTE  NITROGEN 
AMONG  PLANT  PARTS 
WITH  BOLLS  HAVING 
FIRST  PRIORITY 

DISTRIBUTE  NITROGEN 
AMONG  PLANT  PARTS 


USE  RESERVES  IF 
NECESSARY  TO 
MAINTAIN  GROWTH 


IF  THERE  IS  AN 
EXCESS  STORE  IN 
RESERVES 


CALCULATE  I 
RESERVES  I 
f (PLANTW) 


DETERMINE  NITROGEN 
LOST  IF  BOLLS 
ABSCISED 


SUBROUTINE  PLTMAP 


COMPUTE  MAXIMUM  POSSIBLE 
NUMBER  OF  FRUITING  BRANCH 
NOTES  AS  f ( PLANT  POPULATION 
AND  ROW  SPACING) 


REMOVE  ALL  STEM  AND  ROOT 
HATER IAL  OLDER  THAN  24 
DAYS  FROM  BIOMASS 


THIS  PROGRAM   INITIATES  SQUARES ,   MAINSTEM  NODES,  FRUITING 
BRANCH   INTERNODES,   AND  A  SINGLE  VEGETATIVE  BRANCH .     BOLINC  IS 
COMPUTED  BASED  ON  TODAYS  BOLL  GROWTH  DIVIDED  BY  THE  POTENTIAL 
GROWTH.     CARBOHYDRATE  STRESS   IS  THEN  COMPUTED  FROM  BOLINC. 
PINHEAD  SQUARES  ARE  ABSCISED  IF  SOLAR  RADIATION  IS  GREATER 
THAN  700  WATTS/M2.     DELAYS   IN   FORMING  NEW  MAINSTEM  NODES  AND 
FRUITING  BRANCH   INTERNODES  ARE  GENERATED  IF  THERE   IS  A  CARBO- 
HYDRATE STRESS.     SQUARES  OF  AN  AGE  CENTERED  AT   12   DAYS  ARE 
ABSCISED   IN  RESPONSE  TO  CARBOHYDRATE  STRESS  ALSO. 


READJUST  AVERAGE 
TEMPERATURE  AND 
PHYSIOLOGICAL  AGE 


AT  TIME  OF  1ST  SQUARE,  CALCULATE  NUMBER 
OF  NODES  ON  VEGETATIVE  BRANCH  AND  NUM- 
BER OF  NODES  ON  FRUITING  BRANCHES  OFF 
THE  VEGETATIVE  BRANCH .    ALSO  TIME  OF 
FORMATION  OF  1ST  NODE  ON  FRUITING  BRANCH 
OFF  VEGETATIVE  BRANCH. 


INITIALIZE  ALL  WEIGHTS  AND 
COUNTS,  AND  COMPUTE  BOLINC 


COMPUTE  XTRES  AS  FUNCTION 
OF  BOLINC 


DO  FOR  ALL  NODES  ON 
THE  MAINSTEM 


NO 


|  COMPUTE  BOLL  AGE 


COMPUTE  NUMBER  AND  INCREMENT 
WEIGHT  OF  GREEN  BOLLS  AND 
OPEN  BOLLS  


© 


SUBROUTINE 


P   L  T  M  A  P 


(Continued ) 


TWAIN  =  TWAIN  +  2.5 
INCREMENT  MAINSTEM  NODE  NUMBER  AND 
CALCULATE  TIME  OF  APPEARANCE  OF 
SQUARE  ON  NEW  FRUITING  BRANCH 


DO  FOR  EACH  MAINSTEM  NODE 


COMPUTE  RUNNING 
AVERAGE  TEMPERATURE 


DO  FOR  EACH  FRUITING 
BRANCH  NODE 


SET  FRUIT  ON  NODE. 
COUNT  NODES  ON  BRANCH 


NO 

TV  =  TV  +  2.5 

INCREMENT  VEGETATIVE  BRANCH  MAINSTEM 
NODE  NUMBER  AND  CALCULATE  TIME  OF 
APPEARANCE  OF  SQUARE  ON  NEW  FRUITING 
BRANCH 

DO  FOR  EACH  VEGETATIVE 
BRANCH  MAINSTEM  NODE 

COMPUTE  RUNNING  AVERAGE  TEMPERATURE 


DO  FOR  EACH  FRUITING 
BRANCH  NODE  


XTRES 

1        TMAIN  =  TMAIN  + 

.0  ,  TV  =  TV  + 

.0 

2 

.40,  " 

.40 

3 

.70,  " 

.70 

4  1 

.00.  " 

.00 

DO  FOR  EACH  NODE 


XTRES 

1        T(L)  =  T(L) 

+  .2 

TBRV(LV)  =  TBRV(LV)  +  .2 

2 

.6 

.6 

3 

1 .2 

1.2 

4 

1 .5 

1.5 

XTRES 

1  ABSCISE 

IF  12  DAYS  OLD 

2 

"   12    ,"  • 

3 

"   9-12  DAYS  OLD 

4 

'•  8-13      "  " 

NSTRES 

3  ABSCISE  BOLL  IF  UP 
TO  33  DAYS  OLD 

4  ABSCISE  BOLL  IF  W 
TO  38  DAYS  OLD 


ABSCISE  ANY 
LEAF  MATERIAL 
>70  DAYS  OLD 


C    RETURN  J 


SET  FRUIT  ON  NODE. 
COUNT  NODES  ON  BRANCH 


-  i 


SET  COUNTERS  FOR  TODAY"S  BOLL  AND 
SQUARE  LOSSES  =  0  
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DEFINITION  OF  TERMS 


ADD 

AGE 
ALAIFC 

ATL  (3) 

BALECT 

BALEFC 

BLOOM 

BOLINC(J) 

BOLLST 

BOLRES 
CLIMAT(JJ) 


CLIMXX 

COSLAT 

COTXX 

C02 

DAY 

DAYFAC 

DECL  (365) 

DECLIN(365) 

DIFSUM 

DMACRE 

EFF 

ESUBT(I) 

EVAPFC 

FAGE  (L,M) 
FAGV(LV,MV) 

FLOWER 

FR(L,M) 
FRV(LV.MV) 


Main  Program 

Factor  used  to  adjust  LAI  for  dif- 
ferent plant  populations. 

Counter  for  real  time. 

Leaf  area  ratio  (leaf  area/leaf 
weight) . 

Not  used. 

Bales  per  acre. 

Used  in  determining  flowering  rate 
based  on  plant  population. 

Number  of  fruit  lost  due  to  bloom 
sticking. 

Percentage  of  total  boll  demand,  dry 
weight,  added  each  day.  J  is  time 
from  emergence. 

Number  of  bolls  lost  on  a  given  day 
due  to  carbohydrate  shortage. 

Boll  respiration. 

Same  as  KLYMAT,  but  used  to  store 
weather  data  that  is  used  in  grow- 
ing season.  Julian  day  changed  to 
day  from  emergence. 

Variable  used  to  reorder  weather 
data  based  on  days  from  emergence 
rather  than  Julian  day. 

COS(LATUDE). 

Weight  of  mature  bolls. 

Carbon  dioxide  fertilization  trigger. 
Read  in  with  weather  data. 

Physiological  time.  Real  variable. 

Factor  used  in  calculating  length  of 
daytime  physiological  time. 

Variable  used  for  calculating  daily 
declination  values. 

Table  of  declinations  read  in. 

Not  used. 

Number  of  square  decimeters  in  1 
acre. 

Factor  for  adjusting  photosynthetic 
efficiency  of  plant. 

Evapotranspiration  of  plant  ESUBT. 
(I)  has  five  values. 

Maximum  transpiration  considering 
pan  evaporation. 

Fruitage  matrix  for  main  plant. 

Age  of  fruit  in  days  from  initiation 
at  proper  LV,  MV  location,  vege- 
tation branch. 

Used  in  determining  flowering  rate 
based  on  plant  population. 

Fruiting  matrix  for  main  plant. 

Fruiting  matrix  where  fruit  code  is 
stored.  LV  is  vegetative  branch 
main-stem  node  number.  MV  is 
fruiting  branch  off  of  vegetative 
branch  node  number.  FRV(LV, 
MV)  :  1  is  square,  2  is  green  boll,  3 
is  mature  boll,  4  is  abscised  fruit 
site,  5  is  square  designated  to  ab- 
scise, and  6  is  boll  designated  to 
abscise. 


GRCOTX  Weight  of  green  bolls. 

GSUBR  Vegetative  respiration. 

HISTD  Factor  used  in  controlling  boll  set- 

ting. 

H20CAP  Water  capacity  of  soil  in  inches  per 

one-tenth  of  rooting  depth. 

H20REM  Water  remaining  in  soil. 

H20REX  Water  remaining  in  soil. 

H20RUN  Calculated  runoff  of  rainfall. 

I  Physiological  time.  Integer  variable. 

IOLD  Variable  used  in  determining  wheth- 

er or  not  a  new  physiological  day 
has  occurred. 

ISTSQR  Trigger   for   subroutine  PLTMAP. 

Time  is  physiological  time  to  first 
square. 

JB  Number  used  to  select  how  often 

plant  will  be  printed  out.  Used 
when  LAST  equals  zero. 

JJ  Time  from  emergence. 

JJK  Trigger  used  in  selecting  output  for- 

mat of  the  program.  First  day  to 
be  listed. 

JNEXT  Trigger   for   output   in  answering 

question  from  computer  terminal 
"Do  you  want  plant  printed  out  on 
day  JJ?"  Answer  "Zero"  for 
"Yes;"  "1"  for  'No." 

JPLDAY  Day  of  emergence. 

JSEASN  SEASON +  2  Trigger  to  end  simula- 

tion. 

KCARDS  Number  of  days  of  weather  to  be  read 

into  KLYMAT  by  the  computer. 

KLYMAT  (J, I)  Environmental  input  to  program.  J 
is  maximum  number  of  days,  equal 
to  300.  I  refers  to  different  envi- 
ronmental variables.  1  is  solar  radi- 
ation in  langleys  per  day.  2  is  maxi- 
mum daily  temperature  in  degrees 
Fahrenheit.  3  is  minimum  daily 
temperature  in  degrees  Fahrenheit. 
4  is  rainfall  in  inches  per  day.  5  is 
pan  evaporation  in  inches  per  day. 
6  is  Julian  day  number.  7  is  a  C02 
trigger. 

LAI  Leaf-area  index  (DMVDM2). 

LAST  Trigger  used  in  modifying  matrices 

for  simulating  insect  damage  of 

plant.  Zero  means  no  changes.  1 

means  changes  in  matrix. 
LATUDE  Latitude  of  crop  being  simulated. 

LEAFW  Previous  day's  leaf  weight.  Used  in 

calculating  senescence. 
LEFRNU  Exponent  used  to  adjust  growth  rate 

of  leaves.  Equal  to  1. 
LEFSTF  Percentage  of  leaf  weight  that  can  be 

used  to  store  excess  carbohydrate. 
LEFWT  Active  tissue  weight  of  leaves.  Range 

0  through  70  days. 
LOSTD  Standard  controlling  boll  setting. 
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MATURE  SEASON +  1  Trigger  to  end  simula- 

tion. 

MINFAC  Constant  used  in  calculating  the  dec- 

lination. Equal  to  0.0002909. 

MINUTS  Variable  used  in  calculating  the  dec- 

lination. 

NBRV  Number  of  nodes  on  longest  fruiting 

branch  of  vegetative  branch. 

NEWDAY  Trigger  used  in  telling  when  a  new- 

physiological  day  has  occurred.  1  is 
new.  Zero  is  same. 

NGREEN  Not  used. 

NOBR1  Number  nodes  on  longest  fruiting 

branch  of  main  stem. 
NONOD  Nth  node  of  main  stem. 

NSUM  Total  fruiting  sites. 

NSUMMB  Total  number  of  mature  bolls. 

NSUMBO  Total  number  of  green  bolls. 

NSUMNO  Number  of  main-stem  nodes. 

NSUMSQ  Total  number  of  squares. 

NUMBER  Number    of   fruit   to   be  removed 

(changed)  on  main  stem. 
NUMBV  Number    of    fruit   to   be  removed 

(changed)  on  vegetative  branch. 
NUMGRN  Number  of  green  bolls. 

NUMOPN  Number  of  open  bolls. 

NVEG  Nth  node  of  vegetative  branch  main 

stem. 

NYTTYM  Factor  used  in  finding  average  night 

temperature  from  minimum  daily 
temperature. 

NYTFAC  Phvsiological  time  of  night.  Based  on 

temperature. 

PAVAIL  Available  photosynthate  for  growth. 

PBOLL(J)  Boll;  weight  increments.  J  is  days 

from  flower  where  flower  is  day  1. 

PCOT(JJ)  Daily    weight    increment    of  plant 

parts.  J  is  day  from  emergence.  I 
classifies  plant  part.  1  is  roots,  3  is 
stems,  5  is  leaves,  and  7  is  flowers. 
2,  4,  6,  8,  and  9  are  not  used. 

PLANT  Total  plant  weight. 

PLANTW  Total  plant  weight  less  any  mature 

boll  weight. 

PLTDAY  Day  of  emergence. 

POLYNA  Polination  factor.  Zero  is  conditions 

favorable  for  polination.  1  is  con- 
ditions unfavorable  for  polination. 

POPFAC  DMACRE/POPPLT. 

POPPLT  Number  of  plants  per  acre. 

PQBOLX  Growth  requirement  of  bolls  on  daily 

basis. 

PREQ  Photosynthate  required  for  1  day's 

growth. 

PRES  Permanent  reserve  of  photosynthate. 

PRESX  Permanent  reserve  of  photosynthate. 

PRT(L.M)  Matrices  used  in  printing  alphanu- 

PRI(L.M)  meric     representation     of  main 

plant. 

PRTV  (LV,MV)     Matrices  used  in  listing  alphanumeric 
PRIV(LV,MV)      representation      of  vegetative 
branch.  X  is  square,  *  is  green  boll, 
#  is  mature  boll,  O  is  abscised  fruit 


site  or  main-stem  node,  I  is  fruit- 
ing branch  internode,  and  =  is 
main-stem  internode. 
Radian  factor  used  to  convert  de- 
grees to  radians. 
Fraction  of  stalk  storage  available 
per  day. 

Maximum  stalk  reserves  as  fractions 

of  stalk  weight. 
Daily  rainfall. 

Active  tissue  weight  of  roots.  Active 

range,  O  through  24  days. 
Row  spacing  in  centimeters. 
Maintenance  respiration  as  fraction 

of  plant  weight. 
Root  weight. 

Exponent  used  to  adjust  root  growth. 
Length  of  season  from  day  of  emer- 
gence in  days. 
SIN  (LATUDE) . 

I  is  10  layers  of  soil.  Each  layer  is 
one-tenth  of  rooting  depth.  SOILW 
(I)  is  water  content  of  the  Ith 
layer. 

Number  of  squares  lost  on  a  given 
day  due  to  carbohydrate  shortage. 
Exponent  used  to  adjust  stem  growth. 
Active  tissue  weight  of  stems.  Active 

range,  0  through  24  days. 
Stress  that  stops  leaf  growth. 
Leaf  weight. 
Root  weight. 
Stem  weight. 
Real  time  increment. 
Maximum  leaf  reserve  storage  of 
photosynthate  as  fraction  of  leaf 
weight. 

Temporary  reserve  of  excess  photo- 
synthate. 

Factor  to  limit  translocation  from 

leaves  during  day. 
Title;     for    example,  "Mississippi 

Weather  for  1961." 
Total  individual  boll  weights.  L  is 
main-stem  node  number.  M  is  fruit- 
ing branch  node  number.  The  first 
node  of  a  fruiting  branch  is  on  the 
main  stem. 
Individual  boll  weights  on  vegetative 
branch. 

Carbohydrate   stress.   0   through  4 

integer  values. 
Table  of  values  assigning  a  numer- 
ical value  to  the  stress  resulting 
from  the  combination  of  soil  water 
content  and  evaporative  demand  as 
measured  by  pan  evaporation. 
Any  other  variables  not  defined  above  are  concerned 
with  printout  of  the  program. 

Subroutine  SUNTYM 

COS(DCLVAL). 
Length  of  daylight  in  hours. 
Declination  for  day  JD AY. 
Julian  day. 


RADFAC 

RESADD 

RESUFC 

RFALL 
ROOTWT 

ROWSP 
RSUBO 

RTS 

RTSRUT 
SEASON 

SINLAT 
SOILW  (I) 


SQLOST 

STMRUT 
STMWT 

STRLMT 
SUMLEF 
SUMRTS 
SUMSTM 
TIME 
TOPRES 


TRES 


TRNSLF 


TTL(I) 


WTBOLL  (L.M) 


WTBOLV 

(LV,MV) 
XSTRES 

^STRESS(7,5) 


COSDCL 
DAYLNG 
DCLVAL 
JDAY 
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SLN(DCLVAL). 

Time  from  solar  noon  to  sunrise. 

Subroutine  WATERZ 

Trigger  indicating  that  H20EXC  is 
less  than  zero. 

Soil  water  deficiency. 

Excess  soil  water  after  deficit  has 
been  taken  care  of. 

Number  of  layers  of  soil  WRT  root- 
ing depth. 

Variable  used  to  calculate  second 
subscript  of  XSTRES(EVAP, 
NSW). 

Subscript     of     array  XSTRESS 

(EVAP,NSW). 
Pan  evaporation  in  inches  per  day. 
Rainfall  (irrigation). 

Subroutine  PHZDAZ 

Daytime  physiological  time  based  on 

temperature  and  length  of  day. 
Fractional  physiological  time  of  day. 
Difference  between  maximum  daily 

temperature  and  minimum  daily 

temperature. 
Nighttime  physiological  time  based 

on    temperature    and    length  of 

night. 

Fractional  physiological  time  of 
night. 

Average  24-hour  temperature. 

Subroutine  PNET 

Photosynthate  required  to  maintain 
present  plant  material. 

Fraction  of  incident  solar  radiation 
intercepted  as  function  of  LAI. 

Light  respiration. 

Net  photosynthate. 

Photosynthate  produced  per  plant. 

Photosynthate  produced  by  stand  of 
plants  as  function  of  WATTSM. 

Photosynthate  after  light  respiration 
and  maintenance  have  been  sub- 
tracted. 

Photosynthate  reduction  factor. 
Coefficient  for  light  respiration. 
Solar  radiation  in  watts  per  square 
meter. 

Subroutine  QPREQZ 

Not  used. 

Factor  used  to  adjust  LAI  for  crops 

with  different  populations. 
Age  of  fruit  from  initiation  of  square. 
Boll  photosynthate  requirement  for 

full  growth  during  day. 
Boll  photosynthate  requirement  for 

full  growth  during  night. 
Total  boll  requirement  for  24  hours. 
Photosynthate  required  for  full  leaf 

growth  during  day. 


PQLEFN  Photosynthate  required  for  full  leaf 

growth  during  night. 

PQRESN  Requirement  for  rebuilding  depleted 

reserves. 

PQRTSD  Photosynthate  required  for  full  root 

growth  during  day. 

PQRTSN  Photosynthate  required  for  full  root 

growth  during  night. 

PQSTMD  Photosynthate  required  for  full  stem 

growth  during  day. 

PQSTMN  Photosynthate  required  for  full  stem 

growth  during  night. 

QLEF  Not  used.  Equal  to  QUAN. 

QRTS  Not  used.  Equal  to  QUAN. 

QSTM  Not  used.  Equal  to  QUAN. 

QUAN  Constant  to  obtain  proper  proportion- 

ing of  photosynthate. 

Subroutine  PQDAYZ 

F  Ratio  of  available  photosynthate  to 

that  required. 

ROTW  Variable  used  to  calculate  root  senes- 

cence. 

STMW  Variable  used  to  calculate  stem  sen- 

escence. 

TRESXX  Maximum  photosynthate  that  can  be 

translocated  during  day. 

Subroutine  PQNYTZ 

ABC  Variable  used  to  see  if  boll  setting  re- 

quirements are  met. 

PREQZ  Photosynthate  required  for  growth  if 

roots  are  not  grown. 

STQN  Same  as  PREQZ. 

TSLIMT  Maximum  photosynthate  that  can  be 

stored  in  leaves. 

Subroutine  NITR 

AD  Actual  root  volume  depth. 

AL  Actual  root  volume  length. 

APPL  Sidedressing. 
AW  Actual  root  volume  width. 

BCON  Burr  concentration  of  nitrogen  by 

weight. 

BOL1  Nitrogen   requirement   for  today's 

boll  growth. 

BURMIN  Maximum  nitrogen  requirement  for 

today's  burr  growth. 
BURR  Maximum  burr  usage  capacity  for 

nitrogen. 

BURR1  Nitrogen    requirement   for  today's 

burr  growth. 

CD  Depth  of  maximum  root  volume  per 

plant. 

CL  Length  of  maximum  root  volume  per 

plant. 

COTTON  Total    mature    and    green  cotton 

weight. 

CW  Width  of  maximum  root  volume  per 

plant. 

DEFCIT  Difference  between  boll  growth  re- 

quirement for  nitrogen  and  nitro- 
gen taken  up  from  soil. 
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DREQX  Maximum  capacity  of  plant  for  stor- 

age of  nitrogen. 

EFN  Efficiency  of  application  of  preemer- 

gence  application  and  sidedressing 
(if  any). 

EXC  Amount  of  nitrogen  taken  up  above 

needs  of  plant  for  growth. 

GRGR  Amount  of  fruit  growth  on  plant. 

LCONC  Leaf  concentration  of  nitrogen  by 

weight. 

LEFR  Maximum  carbohydrate  storage  ca- 

pacity of  leaves. 

LEFRI  Nitrogen    requirement    for  today's 

leaf  growth. 

LEFRS  Reserve  nitrogen  stored  in  leaves. 

XMAX(I)  Maximum    nitrogen  concentration 

possible  in  plant  parts.  I  is  used  as 
follows:  1,  seed ;  3,  burrs;  4,  stems; 
5,  roots. 

XMIX(I)  Minimum    nitrogen  concentrations 

possible  in  plant  parts  as  defined 

for  NMAX  (I) . 
XPART  Actual  nitrogen  in  plant  parts.  I  is 

defined  as  NMAX  (I). 
XSTRES  Nitrogen  stress  factor  for  reduction 

of  growth  and  abscission  of  fruit. 
PERN  Organic  nitrogen  pool  in  soil. 

POM  Percentage  of  organic  matter. 

R  Rainfall  in  inches. 

RCON  Nitrogen  concentration  in  roots  by 

weight. 

REQ1  Xitrogen    requirement   for  today's 

plant  growth. 

RESN  Reserve  nitrogen  available  in  plants 

for  growth  of  fruit. 

ROTR  Maximum  capacity  of  roots  for  nitro- 

gen. 

ROTR1  Nitrogen    requirement   for  today's 

root  growth. 

ROTRS  Reserve  nitrogen  in  roots  available 

for  fruit  growth. 

RTOT  Cumulative  sum  of  nitrosren  demand- 

ed by  the  plant. 

SCON  Seed  concentration  of  nitrogen  by 

weight. 

SEEDR  Maximum  seed  usage  capacity  for 

nitrogen. 

SEEDRI  Nitrogen    requirement    for  today's 

fruit  growth. 

STCOX  Nitrogen  concentration  in  stems  by 

weight. 

STMR  Maximum  capacity  of  stems  for  nitro- 

gen. 

STMR1  Nitrogen    requirement    for  today's 

stem  growth. 

STMRS  Reserve  nitrojren  in  stems  available 

for  fruit  growth. 
SUPR  Factor  used  for  partitioning  nitrogen 

among  plant  parts. 
SUPR1  Factor  used  in  partitioning  nitrogen 

among  plant  parts. 
TEMN  Soil  pool  of  available  nitrogen. 

TOTAL  Plant  requirement  for  growth  plus 


excess  nitrogen  (if  any)  taken  up. 

USE  Parameter  indicating  rate  of  deple- 

tion of  reserves. 

VPLT  Actual  root  volume. 

VTOT  Maximum  root  volume  per  plant. 

WCOTX  Yesterday's  mature  cotton  weight. 

WGRCOT  Yesterday's  green  cotton  weight. 

WLEF  Yesterday's  leaf  weight. 

WROT  Yesterday's  root  weight. 

WSTM  Yesterday's  stem  weight. 

XX  Maximum  amount  of  nitrogen  plant 

can  take  up  per  day. 

XXUP  Nitrogen  uptake  of  plant. 

XNUP1  Amount  of   nitrogen  taken   up  by 

plant. 

Subroutine  PLTMAP 

AVTEMP  Accumulated    average  temperature 

for  first  31  physiological  days. 

DSQ  Day  of  squaring  on  main  stem. 

DSV  Day  of  squaring  on  vegetative  branch. 

ICNOD  Trigger  for  adding  new  node  to  main- 

stem  fruiting  branch. 

INOD  Main-stem  node  on  plant  at  which  the 

first  square  will  appear. 

ISQ  Trigger  for  telling  when  first  square 

is  on  plant. 

IVNOD  Trigger  for  adding  new  node  to  vege- 

tative fruiting  branch. 

JK  Matrices  for  determining  when  fruit 

JKV  will  be  abscised  after  triggering  the 

abscission  process. 

LEAFWT(JJ)  Variable  used  to  senesce  leaf  materi- 
al. 

XOBR  Maximum  number  of  nodes   on  a 

main-stem  fruiting  branch. 

XTL  Trigger   for   adding   squares  to  a 

fruiting  branch,  from  the  main 
stem. 

XTLY  Trigger   for   adding   squares   to  a 

fruiting  branch  for  a  vegetative 
branch. 

NV  Number  of  nodes  on  vegetative  main 

stem. 

PQBOLD  Photosynthate  available  for  today's 

boll  growth. 

PQBOLX  Photosynthate  available  for  tonight's 

boll  growth. 

PQBOLX  Total    required    photosynthate  for 

maximum  boll  growth  for  24  hours. 

ROOTW(JJ)  Variable  used  to  senesce  root  materi- 
al. 

STEM  ( JJ)  Variable  used  to  senesce  stem  materi- 

al. 

TAVL  Running    average    temperature  of 

nodes  on  main  stem. 
TBRV  Time  till  next  node  on  vegetative 

fruiting  branch. 
T(L)  Time  till  next  node  on  main-stem 

fruiting  branch. 
TMAIX  Time  till  next  node  on  main  stem. 

TMPV  Running-    average    temperature  of 

nodes  on  vegetative  branch. 
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rV  Time  till  next  node  on  vegetative 

main  stem. 

VVLOST  Total  root  and  stem  material  sen- 

esced  on  this  day. 

PROGRAM  SETUP 

SIMCOT  II  is  written  in  FORTRAN  IV  level 
G  and  has  been  run  on  the  IBM  370-155  system  at 
Clemson  University  and  on  the  UNI  VAC  1106  at 
Mississippi  State  University.  The  IBM  370-155 
uses  91  K  bytes  of  storage,  and  run  time  with  a 
typical  10-day  mapping  output  is  55  seconds. 
Comparable  figures  for  the  Univac  1106  are  23 
K  words  and  34  seconds.  We  normally  employ 
disk  files  for  program  and  data  sets,  and  we 
usually  operate  from  terminal.  In  converting  to 
Univac  or  IBM  equipment  the  arc  cosine  term 
in  SUNTYM  must  be  used  appropriately. 

SIMCOT  II  can  be  used  for  plant  population 
studies  with  up  to  80,000  plants  per  acre.  An 
appropriate  "LEFADD"  factor  from  table  4-1 
and  the  per-acre  plant  population  must  be  sup- 
plied as  indicated  on  line  288  of  the  sample  data. 

Carbon  dioxide  fertilization  experiments  can 
be  made  by  inserting  a  1  in  the  appropriate 
column  of  the  climate  data.  This  provides  500 
p/m  C02  in  the  upper  part  of  the  plant  canopy 
during  6  midday  hours  (roughly  equivalent  to 
200  lb  C02/acre/hour) . 


XM  Variable  used  in  calculating  maxi- 

mum number  of  nodes  on  a  main- 
stem  fruiting  branch,  based  on 
plant  population. 

AND  EXECUTION 

Photosynthetic  efficiency  can  be  varied  by  ap- 
propriate change  in  PNEFF  in  line  288  of  sam- 
ple data. 

Nitrogen  fertility  studies  can  be  made  with 
different  planting  applications  (INITIALN= 
pounds  N  per  acre  on  line  290  of  the  sample  data 
set)  or  by  sidedressing  with  appropriate  levels 
of  APPL  in  pounds  N  per  acre  on  line  36  of 
NITR. 

Row-spacing  studies  can  be  made  by  changing 
ROWSP  on  line  288  of  the  sample  data. 

Soil-moisture  studies  require  appropriate 
values  for  inches  of  water  holding  capacity  in  the 
top  12  inches  (SOIL  CAP  on  line  288  of  the  sam- 
ple data)  and  may  require  changes  in  lines  18-24 
of  WATERZ  on  lines  281  to  283  of  the  sample 
data  to  reflect  the  effect  of  various  climates  on 
plant  water  status.  We  have  not  yet  attempted  to 
validate  over  a  range  of  moisture  stress  condi- 
tions for  different  soils. 

Emergence  date  studies  can  be  done  by  chang- 
ing EMERGE  on  line  288  of  the  sample  data. 


43 


PROGRAM  LISTING 


MCKIN+TF.K 

1  BLOCK  DATA 

2  COMMON  /ODM/FR,  DAY,  I,  JJ..  PCQT,  ISTSQR 

3  INTtGtK  FR<4b,  8  > 

4  DATA  FR/360+0/ 

5  REAL  PCOK200,  9) 

6  nATA  DAY'  0 .  /,  I S  !  3QR/  0  / 

7  END 


/.  02/,  NMAX<4)/.  02/ 

0..',  GRCO  fX/0.     NUMGPN/0 ■■<>  NUMOPN/ 


MCKIN+TF. A 

1  DIMENSION  PCOT  02  00,  9),  PB0LLO6Q),  KLYMAT i 3 0 0..  7),  XSTRLSC 

2  £7.5),  WTB0LLC45,  8  >..  CLIMAT<300,  7) 

3  D I  MENS  I  ON  SO  I L  W  ( 1 0  ) ,  ESUBT  ( 5 ) ,  WTBOLV  <SU,  b) 

4  INTEGER  T TL < 2 0 ) 

5  D I  MENS I ON  DECL < 365  > ,  DECL I H  < 365 > 

6  DIMtNSION  ATL < 4 ) 

7  COMMON  .-'COM-'FR,  DAY,  I..  J  J,  PCOT,  ISTSQR 

8  COMMON  STMWT,_ROOTWT 

9  INTtGtK  i-K(4d,  8  > 

10  INTEGER  SQLOST,  BOLLST,  BLOOM,  FRVL 

1 1  I NTEGER  CHARX/ '  X '  /,  CHARS/^*  •'  /,  CHARN/ '  # '  /,  CHAR  I  / '  I '  /^CHARQ/  '0'/ 

12  IN  l  EGt  K  h RV ( 6  0 .  5 ) / i  t> 0* 0/ >  F  AGV < 6 0 .  5 > i 5 0*  0    PkTV < 3 u,  b > / 1  b u* '   '  ■■'  .< 

13  1PRIVO30,  5)/150+-'    ' / 

14  INTEGER  KTRES ■•' ..  002/ 0--'' 

ib  INTEGtR  FAGt<4b,  8  ) /S6 0+  0  •',  POLYNA/ 0/ 

16  INTEGER  PRT<  45,  8  )/360*'   '     PR  I  (45,  8  V360+-'    '  / 

17  REAL  NMAXC5),  NMIN05),  NPARTO5)/5+0.  .-VLCONC/0.  / 
13  REAL  LEAFW 

19  REAL  LEFUIT,  LO  STD,  LAI,  NYTFAC,  HYTT 

20  1YM,  LATUDE,  MI NUTS,  MI HFAC,  KLYMAT,  LEFSTF 

2 1  REAL  WLOST  ( 3  )  J+ 0 .  /,  AGE/  0 .  / 

22  DATA  WTBOLL '360*0.  /,  HISTD/.  U,  LOSTD-- 2/,  STRLMT/. 71/,  TRHSLF-'.  2/ 

23  DATA  WTBOLV,-- 1 5  0*  0 .     DAYFAC/ .  55.--,  NYTFAC/ .  45/,  EVAPFC/ .  75/,  RSUBO/ 

24  1 .  0032/ >  ALAIFC/1 .  2--',  TOPRSF/0.  /,  RESUFC/.  6/,  RESAPD/.  8/,  GSUBk/.  j75/, 

25  2LEFSTF/ .  3/,  NM I N  (  1  >  / .  02/,  HM I N  (  2 >  / .  04/,  NM I N  <  3  J>  / .  0  06/,  NM I N  <  4  )  - .  0  09/, 

26  3NMAX <1>/. 042/,  NMAX C 2  > / . 04/,  NMAX < 3 

27  DATA  ATL/' DAY' j  '  VS',  '  BOL. ' ,  '  INC 

28  DATA  SUMLEF/0,  /,  SUMSTM/0.  •-,  SUMRTS- 

29  1  0/,  D IFSUM/  0 .     DM  ACRE/ 4  047  0  0 .  /,  CO!  XX/  0 .  /,  TORRES.--  0 .  /,  PAVA I L/  0 .  /,  TRE3 

3  0  2/  0 .                  POL  YNA/  0/,  SOLOS  I  /  0  --,  BOLLST/  0/,  LA  I  .  C i"  ■■■ ,  PL  ANTW  -'  1 . 

3 1  3  PRESX/ .  0 1  /,  PQBOLX/ 1 .  /,  PRES/ .  0 1  /,  R  IS.- 1 .     PREQ-"  0 .  ••- ,  NEWDAY/ 

32  4  0/,  I  OLD  --  0/,  H20RI.  IN/  0 .  / 

33  READ < 5,  1  0 0 0 >  C  < PCO T < K,  J ) ,  J=l .  9>,  K  1 ,  4 1  > 

34  1 0  0 0  FORMAT  < 9F5 . 0 > 

35  READ  < 5,  1 0 05 ) C PBOLL  C J > ,  J= 1 ,  6  0 ) 

36  i  0  05  FORMAT  <.  1 6F5 .  U  > 

37  READ (5, 1003)TTL 

38  1003  FORMAT t 2 0A4) 

S9  Kb An  Cb,  i  0 0 1 > KCARDS 

4  0  1001  FORMAT < I 10) 

41  READ  05.  1 01 0 >  < ( KLYMAT < K,  J ) ,  J= 1 ,  7 ) ,  K= 1 ,  KCARDS ) 

42  i  010  F0RMAT<7F1 0. 0) 

43  READ < 5,  1 025  >  < DECL I H < J  > , J= 1 , 365  > 

44  1025  FORMAT < 16F5. 2> 

45  DO  2222  J=2,  365 

46  2222  I F  ( ABS  C  DECL  I H  <  J  )  ) .  LT .  0 .  5  )  DECL  I N  <  J ) --DECL  I N  <  J- 1 ) 

47  READ  <  5,  1  0 1 5  >  <  <  XSTRES <  J,  K  ) ,  K=  1 ,  5  > ,  J=  1,7) 
43             1015  FORMAT < 15F5. 0) 

49  DO  786  ■  1=42,  2  nn 

50  PCOT':  J,  1)  =  .  08 

51  PCO I (J, 2)=. 0 

52  PCOT<  J,  3">  =  .  80 

53  PCOT <.J..  4)=0. 
Fi4  POO  |  '-  .I,  5)=.  60 

55  PCOT< J, 6)=. 0 

56  PCOT C J, 7)=PC0T<41J 7) 

57  PCOT <J,  3)  =  0. 

58  786  PCOT 9)  =  15.  00 
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PROGRAM  LISTING-Continued 

C  DESCRIPTIONS  OF  THE  ENVIRONMENT:  LATITUDE,   LENGTH  OF  SEASON, HATER 
C  CAPACITY  OF  THE  SOIL  IN  INCHES  PER  TENTH  OF  THE  ROOTING  DEPTH 
6  READ (5,  1  020'>LATUDE,  SEASON,  H20CAP,  EMERGE,  ROUSP.  ADD,  EFF.  POPPLT 

C  MANAGEMENT  06  THE  CR-P:  PLANTING  DAY  -&  THE  YEAR.   PLANTS  PER  ACRE 
C  ROW  SPAC  ING,    CENT  I  METERS 

2  READ  <  5,  1  02  0  )  POM,  EFN,  TEMH,  RES  I DH 

1 020  FORMAT C8F 1 0. 0) 

TEMH=  C  TEMN+EFN^'POPPLT  >  +453 .  6+RES I BN+45"3! .  G.-'PQPPLT 

READ':  5,  7055XJJK,  LAST,  JB 
r'055    l-QRMAl  <Jl5) 

FLGUER=3  0  0  0  0,'POPPLT 

BALEFC=.  0 0 0 0 0 1 4+POPPLT 

yp=o 

UL=0 

MINFAC-. 0002909 
JSEASN=SEAS0N+2. 
MATURE=SEAS0N+1 . 
NGRhEN=SLAS0N-2. 
RADFAC=. 0174533 

latude=latude+radfac 
jplday=emerge 
sinlat=sinc:latude> 
coslat=cos(latude> 

DO  8  J-L  365 

K-DECLINCJ) 

DEGRES=K 

M I NUTS=DECL I N < J > -DEGRES 
8  DECL  <  J  =DEGRES+R ADF AC+M I NUTS+M I NFAC+ 100. 
K=l 

DO  21  J=l,  KCARDS 
CL I MXX=KLYMAT < J,  6 > -EMERGE 
IFCCLIMYX.LE. 0. >GO  TO  21 
CLIMAT(K. 7)-KLYMAT(J,  7> 
CLIMAT<K,  6::'=KLYMATCJ,  6) 
CLIMAT<K,  5>=KLYMAT< J,  5> 
CLIMAT(K,  4>=KLYMAT< J, 4> 
CL  I  MAT  <  K,  3  >  =  <  KLYMAT  <  J,  3>-32.  >*5.  y9. 
CLIMAKK,  2 >  =  (KLYMAT CJ, 2>-32. >*5. /9. 
CLIMATCK,  1 >=KLYMAT< J,  1) 
K=K+1 
21  CONTINUE 

ESUB I < 1 >=EVAPFC*.5 

ESUBT<2>=EVAPFC+.7 

ESUBT<3>=EVAPFC*.3 

ESUBT<4)=EVAPFC*.9 

ESUBT<5>=EVAPFC 

POPFAC=DMACRE.-POPPLT 

Ron  i  WT=Pi  'ftJ''  1  ■  i 

STMWT  =PCOT(l, 3> 

LEFUIT=PC0TC1,  5) 

1  =  1 

WR I TE  (.  6,  1004>TTL 
1004    FORMAT  C 1  ',20A4> 
DO  14b  J=l,  10 
145  S0ILW<J>=H20CAP 

time=i. 

do  99s  jj=1, jseasn 

JNEXT=Q 

age=age+time 

ifcage.gt. season) go  to  993 

H2GREH=0.  

PFAL:L=CLIMh1  (JJ,  4) 

CALL  SUNT YMC.1PL PAY.  PFi~:L.  DAYLNG,  SIN  AT.  CuSl  AT> 

CALL  WATERZ  <  CL  I  MAT,  HPGCAP,  H20RI  IN,  STRESS,  XSTRES,  SOILW,  ESUB  f,  H20DEFJ 

CALL  MteCAZ  '•'  LL I  MAT,  DAY'!-' AC,  NY  1 1-  AC,  DAYi.  NG,  I  OLD,  TDAY,  TNYT,  DAYTYM, 
1 NYT  I  YH,  fFACD,  TrACN..  NEWJJAY,  TAVG) 

CALL  PNET  <  LA  I ,  CLIHAT,  POPFAC,  PL  ANT  W,  DAYTYM,  NY7TYM,  RSUBO,  PN,  STRESS, 
LTD  AY,  LYIKLS,  GSUBk..  C02,  EFF,  ROWSh",  NMIN,  LCONO 

CALL  QPREQZ ( PQLEF D,  POLE FN,  PQSTMD, PQSTMH, PQRTSD, PQRTSN, PQBOLD, PQBOL 
1N,_PQRESN,_PQFLR,  P90LL,  NYTTYM,  DAYTYM, PQBQLX, TFACD,  TFACN,  TORRES,  PRES, 
2KtSAHIi,  NlWDAYj  LbhUT,  SUMLfch,  SUMS  I M,  SUMkTS, 
3 1  NOD,  NONOD,  NOBR,  FAGE,  NVEG,  NBRV,  FRY,  FAGV,  NFL,  ADD,  NSTRES) 


CALL_F'QDAY2  C  STRESS,_  STRLMT,  PQLEFD^PQS 
1PN,  KL-BUFU,  LEFUl,  '•  TkES  TkNCLF,  LEAFU 


CALL  PQNYTZ (. PQLEFN,  PQSTMH,  PQRTSN,  PQBOLN,  PQRESN,  PQFLR,  TRES, 


TMD,  PQRTSD,  PQBOLD,  TRES,  PRES, 
TMUj ROTW) 
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PROGRAM  LISTING-Continued 


135 

4  1    LTI_~I  IT     DOCC     Tl  IDOL'"'     LJ  T  i^TTi     t    n--'TTi  '••'TDLT'- •     1  Trir^'TLT     Dfll    Vklii  DC-~-MCr" 

1  Lbr  W  1    r  kbo  ■  1  Ur  kbo-  H 1  o  1  11  ■  L  Uo  1  11-     1  Kho.'  Lbr  o  1  h ..  r  UL 1  NH.'  kboUr  L- 

136 

•  «L"jkl    THC'Di'C    uTDC'C    DCr'il  1  i 

dt-'n-  1  Ur  Kbr >  b  1  Kbob.'  kr HLL  ) 

1  •-.  ( 

r-,\l  1      Dl  TMiNiDf'DDMl  1      1  ITC'Tll  1      Ti-vA"l""    klLTI.ITii'iV    DmU'iII   H    DHDiil   Tl    DriDTil  V  WTC>C<~- 

LRLL  rL  1  PlHh  \rbULL..>  W  1  DULL..-  1  Hvb.>  NbWl'H  i    rWbULHj  r  WdULII-  rUBULA)  ft  1  Kr.b- 

4  "JO 

lob 

iHriCMt'1    k f i~i I- 1 i~i Ti    Dfil  I  CT    CHI  OCT    PTiTW    rDrHTV    DHI.ICD    DHCI  D    Dm  VI- LTi^r-LT 
INUbKl  ■  NUNUJJj  bULUb  !  .•  oULUb  I  .■  LU  I  ■  ■  i  ■  *  bh.LU  I  /■•>  hUWor.i  rUrLKj  rUL  i  MHj  rHlatj 

I3y 

til  Null.'  NUbK.'  r  Ur  r  L  1  ■  riUrluKrij  PiUIIUrNj  NVtlaj  rHbKv.>  rhvj  rHlsVj  W  1  DULVj  ns'.'  bLUUPl 

140 

"71  rr.-\CI  1    1   LTLTI  IT    1-tLTI      i^l    TMnT    r-TMl  1    DHTI  1    i~DI  f*IC    1  II   l~l'"-T  H"TDC^\ 

•J.LtHrw.'  LtrW  1  .•  itLj  LLlrlH  1    ol  nw/  KU  1  Wj  bbLUbj  WLUb  1  .•  Ho  l  KLo.) 

141 

4   A  -i 
14-"! 

i--/M  1      LI  T  TL"j  .•'  OTiLTO    OTihil    LTLTH    TLVM^  1    klhli'SV    klhl  T  1.1              C'Til  IOC'    OCDkl    C'TiDDI  T 

1  kIDADT    UCTDD"'    DCCH    nDCnkJ    TlCCPTT    1  ICC    1  pflKIP    UOnTiCC    Ut'fiPiiD    TDI  TiC 

i  a  ~? 

143 

oi  clti  it  r-riT"--""'  rDr  riTv  dcai  i      i  IL'"  rD'.Ji     Lie  i.id^ 

144 

i  io— i  i'--_i.i  ii  n"'Tf  i  '*t 
Wo— w o+l.iJLUo  1  U  .' 

i  AC 

1 4_> 

1  ID  — 1  ID_lI  11  ML'T  .■"  O 
UK  —  I.1.' K 'Ul L '_' b  1  \£. } 

14d 

rLHN  1  —  Lhr  w  1  +.;,  |  piW  1  +KUU  1  w  1  +LKLU  1  ft+L-U  1  .-.C+rKt-j+wLUo  1  '■.  1  ,'+WLUo  1  \£.2  +l.0LUo 

14. 

148 

Lj  1       1.  1 T 1  1  —  C'  1    A  t  i  T     I-"  l-l  T  ^ 

HLhH  1  W=r  LHN  1  -LU  1  ,^.x. 

149 

DO  180  J=1j  1  0 

15  0 

ISO 

1  1  ■  ii"irir"M  1  i-"n~irir~M        iTl  i  1/   1  \ 

H  2  U  R  E 1 '1 = H  c  U  k  b  H + 0  U 1 L  W '-.  J  > 

1  cr  i 

lol 

U  -« Tl  C'  LT  V  —  U  O  M  D  LT  hi1 

HiiUkt.  ■ — HiUkbn 

Ci,-M   LTi^T     r  riT'.  "  -'  x-C'r'-il  CCr 

BHLbL  I  -LU  I  A.  v+  bHLbrL 

15  b 

1      T  —  1  rri  it  .  1 .    1  ate1  r-  •■  C'  i-i  D  C  i-" 

LH  1  -Lbr  W  1  ■+  HLH 1  r  L-'  r  Ur  r  HL 

1  ~"/l 

1D4 

TCr'T    IT    T TC'fiC'j.  1  \r-fi    Ti"l  7cfi 

1  r  \  i  .  L  I  .  lol  oiJk+ 1  ..1  ijij    |  u   f  -j  U 

loo 

k  1 0 1  IM —  1*1 

NbUPl  —  U 

lob 

k  1  c  1  immd— n 

Nouririb-u 

1  Of 

HOI  IMklM  —  l"l 

NoUl  INU—  U 

1  c~0 
lob 

kii—ni  11  it—  ri 
NLUUN 1  —  U 

kl'-"I  IMC-il  1*1 

NoUrioU-0 

1  Cm 

1  b  U 

HCrl  IMC'M—  fl 

nbUllbU  — 1.1 

4  tZ  1 

lbl 

JJU    <  cZ'O   L— 1.'  NUNU1' 

1  -L  ~' 

Tin    "7  OO    M —  4  MTiDDI 

LIU   1  £0  I  I—  1.'  NUbkl 

lOJ 

TCf'CDi'l     M'i    Fn    fl'ifri    Tm  "700' 
lr  \TV:  \  L.'  II,1.  tu  ■  U  .'  LU    1  U    1  CO 

lb4 

yr/rn/i      m  ■•     r-  r*    4  \  c  C'  T  r*  1      M  '■<  — 1~  LJ  A  D  '• ' 

lr  (.r  K \  L.'  11  ,■ .  bU .  1  .-'  r  k  1  '-. L.'  11 .-'  -LHHk,\ 

lb  j 

tr.-'r  n  .■•  I      f.4  \     r-  r,        \  r.-  r>  T  /  1      M  '"i  —  \~  U  r  i  C'  C 

lr \hk'-.L^  ll,1  .  bL! .  ii ,' r  k  1  \X.j  n.'-LHHh.o 
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1  r  '.  r  k  '-.  L;  11 }  .  tu! .    .'  r  k  1  \  L.>  I  I .-'  —  LnHkN 

lbr 

Tr  /  CD  f  1      M  '-i     CTi     -1  "'i  DDT  i'  I      M  ^  -  "UftDfl 

lr  Kr  k L.'  l  l .-'  .  tUi .  4 r  k  I  '■.  Lj  PI -LrlHkU 

1  (TO 

lbb 

Tr/rn.-,|      \.4\     CTi    C'.DDTi'l  h^-rUAD'J 

1  r  (.  h  k  k  L.'  11 ,' .  bl.l .  D ,'  r  k  1  \  L  ■  PI  .>  -L  riHk,--. 

1  iCQ 
1  t'J 

1  r  s  r  k '-.  L.'  I  I .-'  .  bU .  b .'  r  k  1  '■.  L>  I  I .-'  —  L-MHko 

(  7i-| 

1  f  u 

TC /CD  i**l      M  i     CTl     1     mD    CD  i-' I      M  \     Ci"l    tr  -iH'  1  1 MD H"~"l  1 M  ~' \~\  j.  1 

lr  '-.rk'-.L-  \  \?  .  tW-  1  .  UK .  r  k\L.'  PI.-1  .  bU.  ■_' J  rloUPloU— NoUl  loL!+ 1 

1  t  1 
1  <  C. 

TLTi'L~D;'l      M '-i    L"fi    1     r',1  Ifi    rArr/i      m i~-r"     i  ■""« \kir"r*il  IkIT  kir*ril  IklTj.  1 

1  r  '-.  r  k '-.  L  •  PI .-'  .  bU .  1 .  HN1I .  r  HLb '-.  L  >  11  >  .  Lb .  1  ••. ,'  NLUUN  1  -NLUUN  1  ■+  1 

TCi'CPi'i    m'i  cm  --"  Linn  FLif'D.-'i    M'i  rc  1  z>\nrrit  iht— htmi  ihtj.1 
lr  \rk'-.L.'  ll/  .  tW.  D.  HHli.  rHbb'-.L.'  I  I,1  .  Lb.  Yc.  'NLUUN  1  —NLUUN  1  +1 

173 

Tr/C'Df"!      M  si     CTl    'j    mD    CDi'I      Mi     CTi    -C'ikl'*"-!  IMDfi  V IOI  IhlDfij.  i 

lr  i.  r  K Lj  PI,1  .  tU«  i- .  Uk.  rk'-.L.'  11 J  .  bl-l.  b  >  r  'loUllbU  — NoUP1dU+  1 

1  ~7A 

Tr/rn/i      M'i    Cm    ~3  \  klOl  IMMD— klC-l  IMMDj.  1 
1  r  '-.  r  k  '-.  L.'  I  I ,'  .  bU .  J ,'  N  oUl  II  lb— NoUl  lnb+  1 

1  7=; 
li  J 

T  £~  .-'  |_  li     1        r,-j  '-,      ll  i     .--i  '-.  k  i '—  i  1 M  >  \  M  —  k  i ■  i  i  hi !-.  1 1~ 1  J.  1 

1  r  '-. r  k  '-. L.'  I  I ,'  .  tt! .  "+  .'  NoUl  INU— NoUl  ll  iU+  1 

1  ~7C 

1  ro 

DDT /I  Mi-rUnDT 

r  k  1 '-.  L.'  PI )  — LHHk  1 

1  (  f 

r  co 

r  nkJT  t  hi  ic 

LUN 1 1 NUb 

4  "70 

1  r  8 

1  "7ri 

1  f  9 

nn  mo  i  \i—  i  m/cr 

UU   b-io   Lv-li  NVbL 

Tii~i    OO  O    Mi  1—1     HDD'  1 

11 U  o-lo  PI  v  —  1  ■  Nbk  v 

1  O  i". 

TDr'CD'.'rl  U   MIA    Cm    iVi    rn   Tm  OT>0 
1  r  \  r  k  v  '-.  L  •! >  I  I  v  ,' .  tw .  U     LU    1  U  B-ro 

1  A  1 

181 

TCiTDUi  l   '  '    MM'i     Cm     1  'vDDTUi'l  L'    Mi  I  "i  ■— r*LIAD'y 

1  r  '.  r  k V '-.  L  v  j  Pi  v  .-'  .  bU .  1  .-'  r  k  1  V '-.  LV ..  11  v  .J  -L-rlrlk,' 

182 

T  C  i'  CD'  I  •■'  1   m    Ml  I  \     Cm    -7}  '-,  DDT'  '  r'  1   M    Ml  I  ■-,  mMAD'O 

1  r  '-.  r  k  v  (. L  v  .•  PI  s' )  .  bU .  c. } rK  1  v  '-.  L  v ..  PI  v  J  —  LnHh  o 

1  O  7 

IF<FRV<LV,  p1V>.EQ.3>PRTiv''::Lv',  MV>=CHARN 

TCi*'CD"i'I   k  )    VAX  I        Cm     -1     D  O  T 1  J  ■'"  1   -,  1     M '  '  '-i  i"  LJ  r"  ■  C' 

1  O"" 

T  C  f'  LTO'  I  i'-  1   'I     M'i  "i     CTi-i     ^  "■»  DDTU  ■/  1   '  '     M'  ' ''.  —  i^LIADy 

1  r  '-.  r  K  v 's  L  v  >  rl  v    .  LU  .     )  r  K  1  v 's  L  v  >  ll  v  }  —  LHHK.---. 

1  Wfc 

1  ob 

lor 

1  r    r  K  v  '-.  LV   n  v    .  tU .  1 .  UK .  r  K  v  \  L  v  .>  f'l  v    »  LU .  •_■  >  NbUF1bw=HoUnbU+l 

4  i-.i-i 

1  OO 

1  r  \  r  K  v  ',  L  v   rl  v    .  LU .  1  -  Hr-ILI  ■-  r  HU  v   L  v n  v  >  .  L-L  .  1  d  )  NLUUN  1  ---NL  UUN  !  + 1 
1  r   r  K  v  \  L  v rl  v  }  .  LL!  -    -  hNU  .  r  H-j  v  '-.  L  v  .•  H  v  ..' .  IjL  .  1  -c.-1  NL-UUN  1  =NLUUN  1  + 1 

1  QQ 

toy 

1 1»  U 

T  tr  /  r"r"ii  1 1  \  it    mi  j  *■■    r~  i~i    ■— ■    i- ir~i    trr-ii  i  .•■  i  i  i    mljs    t—  i— ■    .--  \  l  ii—t  iMrn-i—L  ir-i  inrn1.  i  ■ 
1  h  C.  h  K  v  C.  L  v  -  I'l  v ,' .  LL! .  ^ .  Uk .  r  k  v    L  v  ..  rlV  )  .  LU .  t- N b U rl B U = r-i b U I '1 B 0  + 1 

ljl 

TC/roiJ/i  ii   mi  j  'i    r_-i"*i       ■-,  l  1 1— ■  i  iMMn  i      ikihpi  i  h 

lr'.rK v   L  v .■  I'l v  .-'  .  LL! .    ,l NoUf1r1b-Nc-Ur'ir'1B+ 1 

1  3d. 

Tr  /  LTD1  '  r'  i     '    Ml  '  ■,     rn     a  ■,  l  ir-i  iMi  if-  —  L        iMi-  if~i_L  i 

1  r  \  r  k  v  V  L V  ?  rl  v  .-1  .  LL! .  4 ,'  NbUl'INl  l-NoUf  1HU+ 1 

1 J-5 

r  k  1  v  \  L  ■/.<  I'lV  J  -LHriK  1 

1  O  -1 

1 

rnuTTHi  i r_~ 
LUN 1 1NUL 

1  r  \  LH  j  1  .  tblfli  U  )  UU    1  U    j  U  U-J 

1  jb 

1  r  k  J  J .  ML. .  J  Jk  )  UU  1  U    r  U  U  U 

19r 

i  in  T  Tr*  .•'              -i  \   i  i 

Wkl  rL"-. k>  21 1  )  JJ 

133 

£11 

rUKPlHK       i    HUl'J  MhNt  HkUII   UN  MR  IN  BRhNL-H  WILL  BE  RBbLlbED  ON  DRY 

1  O.O. 

1  yy 

1  J      T  A      J  *"i  -'  \ 

1   j  14i    r  J 

cLMJ 

C' C i-'i Ti     C~     "7i*il7C%.     I-  II  IhiC'LTC' 

kbRli ',  D  -  o  U  b  -  j  ,'    N  U 1 '1  b  b  k 

I.ID  T  TC  i1'  c    ~?  I'liTLT  -i  kll  ihlDLTD 

Wkl  lb'-. b.'  o iJbD .' NUPlbbk 

O  U  t>3 

r  UKNR  1  '-.  1  j 

z  u4 

T  r- ,-•  L  ||  IKIC'LTC'     1    L-      ri'\i*"-|-*l     Tfl     "7  l"l 

lr  K  NUPlbbk .  Lb .  0?  LU  TO  3  0 

Tim    "7  i      T  — i     Ml  IMC'CC- 

11 U      1    1  - 1 ,  N  U  PI  b  b  k 

O  fl*! 

£l  U  J 

I.IDTTCi'iT    010%i  II 

i.i.ik  l  I  b  v  b.'  tL\£.t  JJ 

206 

212 

F0RMRTC   ' ,  •WHICH  FRUIT  ON  MR  IN    BRANCH  HILL  BE  ABSCISED  OH  DAY  '. 

207 

114,  ■'  ?•'  > 

203 

RERIK5-  i::'L,  M,  FRCL-  M) 

209 

wRITE<6, 1>L,  M,  FR<L- M> 

210 

31 

C0HTIHUE 

PROGRAM  LISTING-Continued 


BRANCH  WILL  BE  ABSCISED  ON  DAY 


215 


1 


213 


307*0 
7000 
5005 

801  0 


30  CONTINUE 

WRITEC6,  214) JJ 
214      FORMAT < '   ' >  '  HOW  MANY  FRUIT  ON  VEG. 
V ,  14, '   ?'  ) 
READ (5,  3065)  NUMBV 
WRITE  (6, 3 065) NUMBV 
IF (NUMBV. LE. 0)GO  TO  33 
DO  32  I=L  NUMBV 
WRITE<6,  215YJJ 

FORMAT <J       'WHICH  FRUIT  ON  VEG.  BRANCH  UILL  BF  ABSCISED  OH  DAY 
114,  ■  ) 
READ  (5,  DLV,  MV,  FRVCLV,  MV) 
WRITEC6,  DLV,  MV,  FRVCLV,  MV) 
FORMAT (SIS) 
CONTINUE 
CONTINUE 
WRITE<6,  216) JJ 

hORMATC   '  >  '  DO  YOU  WANT  PLANT    PRINTED  OUT  ON  DAY  ',14,  '?') 
READ (5,  1 ) JNEXT 
URITEC6,  1) JNEXT 
JJK-JJK+JHEYT 
WRITE (6,  213) J J 

FORMATC ''       '  IS  THERE  ANY  MORE  DATA  AFTER  DAY  ',14,  '?' > 
RtAB<5,  30,'U)LASl 
WRITE (6, 3 070) LAST 
FORMATS  15) 
CONTINUE 
CONTINUE 

NSUM=HSUMSQ+NSUMBO+NSUiiNO+NSUMMB-NONOD-NV 
CONTINUE 
IF<N0BR1.LT.2)G0  TO  746 
N0BR2=N0BRl-i 
DO  73S  M-l,  N0BR2 
Ml=NOBRl-M+l 
IFUJ.NE.  J  JK)  GO  TO  8001 
WRITE (6,  735)  (PRT(L,  Ml  ),  L=l,  NONOD,  2) 

739  FORMAT <  '   ' ,  2X,  32(A1,  3X)  ) 
8001  CONTINUE 

IFUJ.NE.  JJK)GO  TO  8007 
WRITE (6,  739)CPRI(L,  Ml),  L=l,  NONOD,  2) 
CONTINUE 
CONTINUE 
CONTINUE 

IFUJ.NE.  JJK) GO  TO  8008 
WR I TE  <  6, 74  0 ) < PRT ( L,  1 ) , L= 1 , NONOD ) 

740  FORMATS '   ','==',  64CA1,  '='  > ) 
8008  CONTINUE 

IF<N0BR1.LT.2)G0  TO  750 
IF(JJ.NE. JJK>GO  TO  8002 
DO  741  M=2, NOBR1 

WRITE  (6,  76  0  )  <  PR  I  ( L,  M),  L=2,  NONOD,  2) 

741  WRITE (6,  760)  ( PRT (L,  M),  L=2,  NONOD,  2 > 
760  FORMAT-; '   •' ,  4X,  32(A1,  .<X> ) 

750  CONTINUE 

IFUJ.NE. JJK) GO   TO  8002 

WRITEtb,  751)  JJ,  XT  RES,  STRESS,  CLIMATUJ,  1),  PLANT 

FORMAT       ' ,  '  DAY  ',13,'     CH20  STRESS  Ml,'     H20  STRESS  ',F4.1,  ' 
1  SOLAR  RAD  ',F5.0,  '     PLANT  WT  ',F6.2) 
WRITE<6,  752)  SQLOST,  BOLLST,  LAI,  I,  BLOOM 
FORMAT":: '   ',' SQUARES  LOST  ',12,  '     BOLLS  LOST  ' 
1'     PHYSIOL.   DAYS  ',13,'     BLOOMS  LOST  ',12) 
WRITE (6, 753)LEFWT, NONOD,  NSUMSQ,  NSUMBO,  NSUM 
FORMAT ( '    ',  'LEAF  WT   ',F5.2,  '     MAINSTEM  NODES 

12,  '  # 


8007 

738 

746 


751 
752 
753 


12,  '  LAI  ',  F4.2, 
,12,'  #  SQUARES  ' 


ilTES  ',13,  //) 


2, 13, '   #  GREEN  BOLLS 
8002  CONTINUE 

IFCI.LT. ISTSQR+1)  GO  TO  370 
NBRV2=NBRV-1 

IF(NBRV2. LT. 1 )  GO  TO  346 

DO  838  MV=1,NBRV2 

MV1=NBRV-MV+1 

IFUJ.NE. JJK) GO  TO  8009 

WR  I  TE  (  6,  739 )   <  PRTV  <  LV,  MV  1 ) ,  LV=  1 ,  NVEG,  2  ) 

WR  I  TE  <  6,  739 )   <  PR  I V  C  LV,  MV  1 ) ,  LV=  1 ,  NVEG,  2  ) 
8009  CONTINUE 
833  CONTINUE 
846  CONTINUE 

IFUJ.NE.  JJK  )GO  TO  8003 


47 


PROGRAM  USTING-Continued 


288 
289 
2^0 
291 
292 
293 
294 
295 
296 
297 
2^8 
299 
300 
301 
302 
303 
304 
305 
3  06 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
313 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 


LV=2,  NVEG,  2> 
LV=2,  NVEG,  2) 


WR I TE  <  6,  74  0  5   <  PRTV  <  LV,  1 ) ,  LV=  1 ..  NV  ) 
8003  CONTINUE 

I F « NBRV2 .  L  T .  1 )  GO  TO  85  0 
IFCJJ.NE.  JJIOGO  TO  8005 
DO  841  MV=2,  NBRV 
WR I  TE  <  6,  76  0  >  ( PR  I V  <  LV,  MV 
8^1  WRITE  (6, 760)   (PRTVCLV, MV 

8005  CONTINUE 
850  CONTINUE 

INQDV=INOD-l 
I F ( J J . HE .  -UK ) GO  TO  87  0 
I F  < I NODV . LT . 0 ) GO  TO  37  0 
URITE<6,  901)  I NODV 
■501  FORMAT  < '   '..'VEGETATIVE  BRANCH  GROWING  FROM  NODES  13..  2X,  'OF  THE  MAI 
IN  STEM ' ,  ••>') 

8006  CONTINUE 
870  CONTINUE 

JJK=JJK-JHEXT 

IFCJJ.NE.  JJIOGO  TO  SOU 

IFcLAST. EQ. 0)GO  TO  5515 

WRITECe,  220) J J 
220      FORMAT <  '   '  >  '  THIS  IS  DA1 

READ (5,  3065  > J JK 
5515  CONTINUE 

IFCLAST.EQ. 15GO  TO  5505 

JJK=JJK+JB 
5505  CONTINUE 
8011  CONTINUE 
998  CONTINUE 

LATUDE=LATUDE'RADFAC 

URITEv  6,  1050>BALECT,  EMERGE,  JSEASN,  LATUDE 

1050  FORMAT ('   ',  '  YIELD/ ACRE  ',F5.3,  '     EMERGENCE  DATE 

1  DAYS  M3,  '     LATITUDE  ' ,  F5. 1 ) 
WRITE (6..  1  051  >NUMGRN,  NUMORN,  H20CAP 

1051  FORMAT < '   ','#  GREEN  BOLLS  M2,  '  #  OF  OPEN  BOLLS 

2  CAPACITY  ',F4.2) 
I.JRITEC6,  1052)H2ORUN,  ROWSP,  POPPLT 

1052  FORMAT (13H  H20  RUN  OFF  ,  F4.2,  14H    ROW  SPACING  ,  F6.L19H 
lTS'ACRE  ,  F7. 0) 

STOP 
EHD 


14, 5X,  ' WHAT  IS  THE  NEXT  OUTPUT  DAY 


,  F4 .  0, 

,  12,  ' 


GROWING 
SOIL  H20 
#  OF  PLAN 


CPRT  TF.B 
HCKIN+TF. B 


1 

SUBROUTINE  SUNTYMC       JPLDAY, DECL,  DAYLNG,  SINLAT, COSLAT) 

2 

C 

THIS  SUBROUTINE  COMPUTES  THE  LENGTH  OF  DAY  FOR  ANY  DAY  OF  THE  YEAR 

3 

C 

JPLDAY  IS  THE  DAY  OF  PLANTING,    DhYLNG  IS  THE  DURATION  OF  SUNLIGHT 

4 

C 

IN  HOURS. 

5 

c 

DECL  REFERS  TO  A  TABLE  OF  DECLINATIONS  GIVING  DECLINATIONS  FOR  EAC 

6 

D I  MENS  I  ON  DECL  (  365  ) ,  PCOT  <  2  0  0 .  <3  ) 

7 

COMMON  .-  COM  FR,  DAY,  I,  J  J,  PCOT,  ISTSOR 

8 

INTEGER  FRC45,  8  ) 

9 

RADFAC=. 0174533 

10 

JDAY=JJ+ JPLDAY 

11 

DCLVAL=DECLCJDAY) 

12 

SINDCL=  SINCDCLVAL) 

13 

COSDCL=COS < DCL V AL > 

14 

SUNR I Z=  < -S I NLAT+S I NDCL ) / < COSL AT*COSDCL  > 

15 

SUNR 1 2=  AuOS ( SUNR 1 2 ) /RADFAC 

16 

DAYLNG=  ( SUNR  I 2  15.)  +2 . 

17 

RETURN 

18 

END 

MCKIN*TF.C 

1  SUBROUTINE  WATERS       CLIHAT, H20CAP,  H20RUN,  STRESS,  XSTRES,  SOILW, 

2  1ESUBT, H20DEF) 

3  C  SUBROUTINE  WhTERZ  ADJUSTS  SOIL  MOISTURE  FOR  EVAPORATION  AND 

4  C  RAINFALL  AND  EVALUATES  PLANT  STRESS  IN  TERMS  OF  WATER  REMAINING  IN 

5  C  THE  SOIL  AND  THE  PAN  EVAPORATION  FOR  THE  DAY  -  ARBITRARILY. 

fc  C         CL I  MAT  IS  RAINFALL  AND  PAN  EVAPORATION  FOR  THE  DAY  INDICATED 
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PROGRAM  LISTING-Continued 


9 
10 
11 
12 
13 
14 
15 
16 
1? 


C.3 

30 
31 


■I'C' 

34 
40 
41 
42 
43 
44 
45 
4b 
47 
48 
49 
50 
51 


61 
62 

63 

64 

6  5 
66 
67 
68 
69 
70 


H20CAP  IS  THE  USEFUL  WATER  IN  INCHES  PER  TENTH  OF  THE  ROOTING 
DEPTH 

H20RUN  IS  THE  COMPUTED  RUNOFF  OR  SOAKTHROUGH 

XSTRESS  REFERS  TO  A  TABLE  OF  VALUES  ASSIGNING 'A  NUMERICAL  VALUE  TO 
THE  STRESS  RESULTING  FROM  THE  COME:  I  NAT  I  OH  OF  SOIL  WATER  CON  TENT  AN 
EVAPORATIVE  DEMAND  AS  MEASURED  BY  PAN  EVAPORATION 
SOILW  IS  THE  USEFUL  WATER  PER  TENTH  OF  THE  ROOTING  DEPTH 
D I  MENS  I  ON  CL I  MAT  C 3  0  0,  7  ) ,  XSTRES  C  7,  5  > ,  SO  I  LU  <10) ,  ESUBT  <5>,  PCOT  C  2  0  0,  9  > 
INTEGER  EVAP,  FRC45,  8  ) 
COMMON  •  COM -  FR.  DAY,  I,  .J.J,  PCOT,  ISTSQR 
COMMON    STHWT, ROOTWT 


18 

IFCC 

LIMATCJ 

■  i,  b  ) 

.LT. 

2.  0 

'  EVAF-7 

19 

ifo: 

LIMATCJ 

J,  5  j 

.LT. 

.47 

'EVAP=6 

20 

IF(C 

LIMATCJ 

J,  5) 

.LT. 

3,=i 

■EVAF-5 

21 

IFCC 

LIMATCJ 

J ,  5 

.LT. 

.31 

'EVAF-4 

ifo: 

LIMATCJ 

J.  5) 

.LT. 

.  Z3 

■EVAP=3 

23 

IFCC 

LIMATCJ 

.  I ,  5 

.LT. 

.  15 

'EVAF-2 

24 

iFa 

LIMA  1 CJ 

J,  t>> 

.LT. 

.  07 

•EVAP=1 

■-icr 

H20DEF=0. 

26 

IF(CLIMAT(J 

J,  4) 

.LT. 

>  GO  TO 

iiij  I 

'-<■<  J=l.. 

10 

175 


153 


152 
151 

154 

155 
175 


176 


177 

178 


H20DEF=H20DEF+H20CAP- SO I LU  C  J  > 
H20EXC=CLIMATUJ,  4)-H20DEF 
I F  C  H20EXC . GT . 0 . ) GO  TO  154 
EXIT=0. 

WATEF-CLIMATCJJ,  4> 
DO  151  J=L  10 

ifce:kit.gt.  o.  >go  to  151 
xwater=water 

WAT£R=WA I hR- H20CAP+S0 1 LU  C  J ) 

I F  C  WATER . GT . 0 . ) GO  TO  1 52 

SO  I  LU  C  J  >  =80 I LW  C  J )  +>:!  WATER 

EXIT=i. 

GO  TO  151 

S0ILI,JCJ>^H20CAP 

CONi I HUE 

GO  TO  175 

H20RIJH=H20RIJH+H20EXC: 
1)0  ib5  J=l,  i  0 
SOU  WC.I:.^H2nr:AP 
EXIT=0. 

PANVAF'=i  LIrtAi  1  J-J,  5,' 
K=10 

DO  178  J=l,  10 
i-'H2i  i=:: 1  L  WC.  C 
IFCEXIT.GT. 0. >GO  TO 
IFCSOILU<J>.GT. 
K=K-1 

IFCK.LE. 0)K=1 
GO  TO  178 

KMUIST=Cck*5::'+5;'-'iU 
PAHVAF -PANV AP+ESUBT C  KMO I ST ) 
SO  li.  WCJ)  -SO I L  W  C  J  )  -PANVAF 
EFCSOILUCJj'.GT.  0.  )GO  TO  17? 


178 
)GO  TU 


176 


PANVAP-PANVAP 

NSW=KMOIST 

GO  TU  1 78 

EX I 1=1 . 

NSW=KM()lST 

PANVAF- 0. 

CONTINUE 

STRESS=XSTRES 

RETURN 

END 


-QH20 


CEVAP,  NSW; 


CKIN+TF.D 

1  SUBROUTINE  PHZBA2C      CLIMAT,  DAYFAC,  HYTFAC,  DAYLNG,  IOLD, 

2  1TDAY,  TNYT,  DAYTYM,  H'VTTYM,  TFACD,  TFACH,  NEUDAY,  TAVG:> 

3  C  DAYfAC  IS  FkACIIUN  ABOVE  MINTEM'P  FOR  HAILY  TEMP.  AVG. 

4  C  HYTFAC  IS  FRACTION  ABOVE  MINTEMP  FOR  NIGHT  TEMP.  AVG. 

5  C  SUBROUTINE  PH2DAZ  CALCULATES  THE  LENGTH  OF  THE  PHYSIOLOGICAL  DAY  A 

6  C  BASED  ON  THE  ESTIMATED  AVERAGE' TEMPERATURE  OF  EACH,    DEG. CENTIGRADE 

7  C  IOLD=PHYSIOLOGICAL  TIME,  DEGREE-DAYS  FROM  START  OF  PLANT  GROWTH 

8  DIMENSION  CLIMATC300,  7>,  PCOTC200,  9> 
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PROGRAM  USTING-Continued 


COMMON  •  'COM  FR,  DAY,  L  J  J,  FOOT,  ISTSQR 

lb 

REAL  NYTFAC,  MAXMIH,               HYTT, HYTTYM 

11 

INTEGER  FP(45,  8 

12 

IF'XLIMATCJJ,  2>.GT.3D.  >CLIMATUJJ  2)  =30 

13 

MA  KM  I  N=  CL I  MAT  <  -J  J,  2  )  -CL I  MAT  <  J  J,  3  > 

14 

TDA'r-MAXM  I N+D AYFAC+CL I  MAT  (  JJ,  3  ) 

15 

TNYT=MAHfi  I N+NYTFAC+CL  I  MAT  <  J  J,  3  ) 

16 

TF ACD=  (TDAY- 1 2 .  >  -'14. 

17 

I F  C  TDAY . LT . 1 2 . >  TFACD= 0 . 

IS 

TFACN=<TNYT-12. >/14. 

19 

I F  (  TN YT . LT. 12. )TFACN=0. 

20 

D  A  Y  T = T F A  C D +DA Y LNG 

21 

DAY  1  yM=DhY  1  ■■-24. 

oo 

NYTT  =TF ACN+ ( 24 . -DAYLNG > 

H  Y  T  T  Y  M = H  Y  T  T  ■■•"  2  4 . 

24 

TAVG=<  1  DAY+TNY  1  >--2. 

25 

DAY  I NC=DAYTYM+NYTTYM 

2  b 

20  DAY=DAY+DAYIHC 

C  { 

I=<BAY+10.+5.  VI 0. 

28 

IFd.LT.  1)1=1 

29 

NEWDAY=I-IOLD 

30 

IGLD=I 

31 

RETURN 

32 

END 

MCKIH+TF. E 

1  SUBROUT  I NE  PNET  (  LA  L  CL  I  MAT,  POPF  AC,  PLAN!  Id,  DAYTYM,  HYTTYM,  RSI  IB  0, 

2  1  F  N,  STRESS,  TDAYV  LYTRES,  GSUBR,  C02,  ELF,  ROUSP,  NMIN,  LCONG) 

3  C  l  HIS  SUBROUlINt  UAl.CUL.ATES  NL  i  PHOTO  WNTHES I S ( PN >  PER  DAY  PER  PLT. 

4  C  CLIMAT  IS  RADIATION  PER  HAY 

5  C  DAYTYM  AND  HYTTYM  ARE  LENGTHS  OF  DAY  AND  NIGHT  IN  PHYSIOLOGICAL 

6  C  TIME 

7  C  PTSRED  IS  THE  FACTOR  BY  WHICH  LEAF  WILTING  REDUCES  THE  RATE  OF 

8  C  PHOTOSYHTHESIS_ 

9  C  RSUBL=COEl-F 1 C IhN  I  FOR  LIGHl  R.ESPIRAlION 

10  C  RSUB0=COEFFICIEHT  FOR  MAINTENANCE  RESPIRATION 

11  C  GSUBF-VEGETATIOH  RESPIRATION  COEFFICIENT 

12  DIMENSION  CL  IMA!  ( i  0  0,  <  > ,  PCOT  (  Z  0  0,  9  > 

13  REAL  LAI, HYTTYM,  LYTCPT,  LYTRES 

14  INTEGER  C02, FRC45,  3  ) 

15  COMMON  •COM-FR,  DAY,  L  J  J,  PCOT,  ISTSQR 
lb  COMMON     STMWT, ROOTWT 

17  REAL  LCONC,  MM  IN (5)  . 

i  8  FN  I  T=  0 .  C S+  (  0 .  2:>"  0 .  01 2 >*  <  LCONC-NM I N  <  1  >  > 

19  IFCFNIT.LT. . 75)FNIT=0.75 

20  IF(FNIT.GT. 1. 0>FNIT=1. 0 

21  2=2. 263-  0 .  1  yy^'9+  <  CL  I  MA  I  (  JJ,  6  >  - 1 29 .  )  +  0 .  0 1 6 1 69+ C  C  CL  I  MAT  (  J  J,  6>  -1 29 .  >* 

23  LYTCPT=1 .  0756+2.-ROWSP 

24  I F (LYTCPT. GE . 1 . >  LYTCPT= 1 . 

25  IF< STRESS . LT. 10. ) PTSRED = .  1 

26  IF (STRESS. LT. 9. >PTSREp=.25 
2?  Ih  <  SI  RESS .  L  l  .  8 .  >  P I SREB= .  .t> 
23  IFCSTRESS.LT. 7. >PTSRED=.S 

29  I F (STRESS . LT:6 . > PT  SRED= 1 . 

30  WAT  I SM^CLIMA I < JJ,  1 >+. 8942 

3 1  PST AND=2 . 39  0S+ 1 . 37379+UATTSM- 0 . 0  0  054 1 36+  < WATTSM**2 ) 

32  PPL AHT=PST AND+LYTCPT+POPF AC+PTSRF  D+  0 . 0 0 1 

33  PPLAHT=PPLANT+1 . 06+EFF+FNIT 

34  C02=CLIHAT(JJ,  7> 

35  I F (  C02 . EG . 1 ) PPLANT=PFL ANT+ 1 .  4  05 

3b  C          C02  IS  A  C02  FERTILISATION  TRIGGER,    WHEN  EGUAL 

37  C         1,    PRLAHT  IS  IHCREASED  20":  DUE  TO  500  PPM  C02. 

38  RSUBL=  0 . 0  032 1 25+  0 . 0  066875+TDAY 

39  LYTRES=RSUBL*PPLANT 

4  0  BMA I H=PLAHTW t RSUB 0+  < DAYTYM +NY TTYM ) 

4 1  PTS  -PPLAHT-L'i  TRES  BMA  I H 

4i  IFCP l S. L  E, . Oi >P I S=0. Oi 

43  PH=PTS.--a.+GSUBR> 

44  RETURN 

45  END 
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PROGRAM  LISTING-Continued 


MCKIN*TF.F 
1 


s 
10 
11 

12 
13 
14 

15 
16 
17 
IS 
19 
20 
21 
22 
2~* 
24 
2^ 


29 
30 
31 
32 
33 
34 
35 


•id 
3  s 

40 
4] 
42 

A': 

A  A 
t't 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 


lb 


SUBROUTINE  QPREQ2 < PQLEFD,  PQLEFH,  PQSTMD,  PQSTMH,  PQRTSD,  PQRTSN,  PQBOLD 

1,  PQBOLH,  PQRESH,  PQFLR,  PBOLL,  HYTTYM, DAYTYM, PQBOLX,  TFACD, TFACN,  TORRES 

2,  PRFS,  RESABB..  HEUDAY,  LEFUT,  SUHLEF,  SUMSTM,  SUMRTS,  I  NOD..  NONOD, 
3N0BR,  FAGF,  NVEG,  NBRV,  FRV,  FAGV,  NFL,  ADD,  NSTRES) 

THIS  SUBROUTINE  CALCULATES  THE  PHOTOSYNTHATE  REQUIRED  FOR  STANDARD 
GROWTH  BY  EACH  PART  OF  THE  PLANT  ON  THE  DATE  BASED  ON  THE  GROWTH 
OF  THE  STANDARD  PLANT  ON  THE  SAME  DAY 

PQLEFD,  PQLEFN,   ETC.     ARE  THE  STANDARD  REQUIREMENTS  FOR  DAY  CD)  AND 

NIGHT  CN>  FOK  LEAh  ( LEF )  GROWTH;   STEM  ( S !  M )  GROWTH..  ETC. 

PQBOLD  IS  BOLL  REQUIREMENT,  PQRESN  IS  REQUIREMENT  FOR  REBUILDING 

DEPLETED_RESERVES,_  PQFLR  IS  THE  METABOLIC  COSTjDF  A  FLOUER 

REAL  NY  I  l YM, LEF Aim, LEh  UT,  PCOT < 2  0  0,  9  ) ,  PBGLL ( 60) 

INTEGER  FRV  C  30,  5>j  FAGV (30,  5) 

INTEGER  FR(45i8  ').•  FACE C 45,  S  ) 

COMMON  /COM.->K,  DAY,  I,  J  J..  PCOT,  ISTSQR 

COMMON    STMUT,  ROOTWT 

KYN-NSTRES 

REDH=l.-0.4+XYN 

IFCREDH.LE. 0. )REDN=0. 

LEFAD£i=ADD 

S U M L E F -  S U M L E F + P C O  T  C I ,  5)*l  EFADD 
SUMSTM=SL IMSTM+PCOTa,  3> 
S  U  M  R  T  S = S  U  M  R  T  S + P  C  O  T  C  1 ,  1 ) 
QUAN 
PCOT 
IF(1 
PCOT 
PCOTC 
GO  TO 


10 


I,  5 
GT. 
I,  3 
I,  1 
16 


■■'£H4Hy . 
>=PCOTd,  5)*QUAN 
42'>  Gil  TO  15 
)=PCQTCL  3)*GUAN 
>=PCOTCI,  D+QUAN 


::OT' 


CONTINUE 
PCOT  a,  3 
PCOK  L  1 
CON ! INUL 
PQLEFN=F'i 
PQLEFD=PCOTC 
PQS I MD=PCO I ( 
P@STMN=PCOT C 
PQRTSB=PCOT< 
h'QR  I  SN=PCO  I  < 
PQBOLD=0. 
PQBOLH=0; 
PQRESH- C TOPR 


2+. 06+STMWT ) *QUAN 
l.i2+ .  0  06+RnijTUT  ">  +WI JAN 

I, 5  > +NYTTYM+LEFADD 
I, 5 ) +DAYT YM+LEFADD 


3>#DAYTYM 
+-HYTTYM 


DAYTYM 
HYTTYM 


S~PRES)*RESABD 


IFCI.LF. ISTSQR+  28OG0  TO  11 
DO  10  L~  I  NOD..  NONOD 
DO  i  0  M=l, NOBR 
NAGE=FAGECL,  M>-  23+  6 
IFCMAGE. LT. 1)  GO  TO  10 
I F  C  I-  K  C  I ....  M  >  .  EQ .  1  >  GO  TO  8 
IFCFRCL, M).NE.2)G0  TO  10 
IFCNAGE^GT.     60) GO  TO  10 
CON  I INUb 

PQBOLD=PBOLL< NAGE > +DAYTYM+PQBOL D 

PQBOLN=PBOLL C NAGE > +NYTTYM+PQBOLN 

CONTINUE 

DO  12  LV=3, NVEG 

DO  12  MV=1,  NBRV 

NAGE=FAGVa.V,  MV>-  28+  6 

ifcnage.lt. n  go  to  12 


59  IFCFRVCLV,  MV).bU.  DGO  lO  9 

6 0  I F C FRV C LV,  MV :> .  NE .  2 ) GO  TO  12 

61  IFCNAGE. GT.     60) GO  TO  12 

62  9  CONTINUE 

63  PQBOLD=PBOLL C  NAGE ) +DAYTYM+PQBOLD 

64  P Q B  O  L  N = P  Q  B O L  N + P B O L  L C  NAGE ) +NYTTYM 

65  12  CONTINUE 

66  11  CONTINUE 

67  PQBOLX=PQBOLD+PQBOLN 

68  IFCPQBOLX.LE. 0)NFL=1 

69  I F  C  FQBOLX . GT . 0 ) NFL= 0 

70  I F  C  PQBOLX . LE . 0 . ) PQBOLX= 1 . 

71  RETURN 

72  END 
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PROGRAM  LISTING-Continued 


•-UBpni  ITIUE  PODA V£ < STRESS..  STRLMT,  PQLEFD,  P6STMD.  PQRTSB,  PQBOI.B..  TRES,  P 
1  p§c ,  p.H ,  REc|  if  r: ,  LEFWTj  STRES,  T RHSLFlLEAFW..  S  I  MW.-  ROTW  ) 
PQDAYZ  COMPUTES  THE  PHG I OSYH I  HA  I  h  USED  FOR  kLA'NI  LiROWTH  FOR  THE  DA 
DIMENSION  FR •:. 45,  8  > 
DIMENSION     PLOT C 2 00,  9> 
COMMON   -COM.-  FR,  DAY,  I,  JJ,  PCOT,  ISTSQR 
COMMON     STMWT,  ROOTWT 
INTEGER  KTRES 
REAL  LEAF'iJ 
REAL  LEFWT 
LEAFW=LEFWT 
XTRES= 0 
RQTtJ=ROOTUT 
STMU^STMUT 
I  kESHX=!-'H+  I  RNSLh 
PN=PN-TRESXX 

I F < STRESS . GT . STRLMT )  GO  TO  41 
PREQ=PQL EFD+PQSTMD+PQBOLD+PQRTSD 
I F k PREQ .  GT .  FN ':> GO  TO  4  0 
NO_STRESS  ON  PLANT 
i  RES=PN- ;  "RtQ 

50  LEFWT=LEFWT+PQLEFD 
S  T  M  Ul  T  f  S  TMUT+P  Q  S  T  M  D 
ROOT  y  I  ^KUU  I  U  i  4  h'QK  I  SB 
GO  TO  200 

4  0  PAVA I L =F  N+ T  R  E  S + PR  E  S  *R  E  SU  F C 
X I  RtS=3 

I F  < PREQ . GT . PAVA I L ) GO  TO  6 0 
IF (PREQ. GT. FN+TRES>GO  TO  70 
USES  I EMPORARY    KtSERVbS  AND  FN  ONLY 
TRES=PN+TRES-PREQ 
GO_TO  50 
70  PKhS=pRES-PRh0+PN+TREs 

ALL  TEMP.   RESERVES  ARE  USED  AS  WELL  AS  SOME  PERMANENT  RESERVES 
TRES=0. 

go  rn  Fie 

4 1  P  R  E  Q = P  Q  B  O  L  D + P  Q  R  T  S  D 
IF<PREQ.GT.FN>GO  TO  42 
liiATtK  S  !  klSs  ONLY 
TRES=PH-PREQ 

51  ROOTUT=ROOTWT+PQRTSD 
GU   rO  20  0 

42  PAVAIL=PN+TRES+PRES*RESUFC 
XTRESf 3 

I F  ( PKEQ .  G  l  .  PAVA  I L )  GO  1 0  6 1 

I F  < PREQ . GT . PN+TRES > GO  TO  72 

PLANT  USES  PN  AND  TEMP.   RESERVES  ONLY 

TRES=PN+TRES-PREQ 

GO  TO  51 
72  PRESfPRES-PREQ+PN+TRES 

PLAN  i  BlF'S  INTO  PERMANENT  RESERVES 

TRES=0. 

GO  TO  51 
61  TRES=0. 

CARBOHYDRATE  STRESS  AND  MOISTURE  STRESS 

PRES=PRES-PRES*RESUFC 

F=KAVAIL--'PREQ 

F=RATIO  OF  AVAIL  PN  TO  REQUIRED 

IFCF.Lf. .5) XTRES=3 

ROOTUT=ROOTUT+PQRTSD*F 

PQBOLD=PQBOLB*F 

GO  Tu  200 
60  TRES=0. 

CARBOHYDRATE  STRESS  ONLY 

PRES=PRES-PRES*RESUFC 

F=PAVAIL/'PREQ 

LEFWT=LEFbJT+PQLEFB*F 

S  i  MWT=STMWT+PQSTMB*F 

P  0  B  0  L  D = F'  Q  B  0  L  D  *  F 
200  CONTINUE 

PN=0. 

TRES=TRES+TRES X X 

RETURN 

END 


PROGRAM  LISTING-Continued 


SUBROUTINE  PQHV1  ZtPQI  EFH,  PQS  \ MHj  PQRTSN,  POBOLN,  PQRESH,  PUFLP,  TRES, 
1LEFUT,  PRES,  TORRES,  HISTB,  LOSTD,  XTRES,  LEFSTF,  POLYHA,  RES 
1 UFC,  PN,  TOPRSFi STRESS,  RFALL ) 

POLYHA  (POLLINATE)   IF  GIVEN  A  VALUE  SIGNALS  THAT  A  BOLL  MAY  BE  SET 

PQNYTZ  CALCULATES  THE  PHOTOS YNTHATE  REQUIRED  FOR  PLANT  PARTS  FOR  T 

WILL  OCCUR  BASED  ON  l HE  CALCULATED  CAkBOHYjjRATE  STRESS  OR  LACK  OF 

NIGHT  AND  COMPUTES  THE     HEIGHT  GAINS.    IT  ALSO    COMPUTES  WHETHER  BO 

IF  A  BLOOM  IS  PRESENT 

DIMENSION  FRC45, S  > 

DIMENSION    PCOT  (200,  9) 

COMMON  .COM  "FR,  BAY, L  J J, PCOT, ISTSQR 

COMMON    S  l  fiW  I >  ROO  l  W  l 

INTEGER  POLYHA,  XT RES 

REAL  LEFWT, LOSTD, LEFS IF 

TOPRES=STMWT+TOPRSF 

POLYNA=l. 0 

XTRES=0 

PRESX=PRES 

TSL I  MT=L.EFWT+LEFSTF 

IFCTRES.  GT.  TSL  IMT)TRES=TSLIMT 

Ih<PRtSX.LE. 0. >PRt*X=. OOi 

P  R  E  Q = P  Q  L  E  F  H + P  Q  S  T  M  N + P  Q  R  T S  N + P  Q  B  0  L  H  +  P  Q  R  E  S  H + P Q FL  R 

I F < PREQ . GT . TRES ) GO  TO  210 

TRES'=TRES-F'REQ 
'3  0  ROOTWT=ROOTWT+PQRTSN 
50  LEFWT=LEFWT+PQLEFN 

STMWT=STMWT+PQS i  MN 

PRES=PRESfPQF:ESH 

I F  < PRE3 . GT . TORRES > GO  TO  231 
'32  I  FORES.  LT.  HIS  I  U>  GO  TO  600 

POLYNA=l. 

GO  TO  600 
'3 1  TRES-TRFS+PRES-TOPRES 

PRES=TOPRES 

GO  TO  232 
'  1  0  PAVA  IL=TKES+PRE  S  *  RE  Si  !FC 

1 F C PREQ . GT . PAVA I L ) GO  TO  22  0 

P R  E  S=P R E  3 - P R E  Q + T  RES 

l KtS=0. 

ABC=  (  PRESX-PRES  >  .--PRESX 

IFCABC.LT. LOSTD) GO  TO  221 

GO  in  2-;0 
21  POLYNA=1.0 

GO  TO  230 
'20  TkES=0. 

PRES=PRES-PRES+RESUFC 

PRE  Q 2 = P R EQ- PQR  T S N 

1 1-  <  I-'  R  E  Q  2 .  G I .  P  A  V  A 1 L  )  G  O   I  O  24  0 

ROOT  WT=ROOTt...lT+  (  PAVA  I L  -  PREQ2) 

GQ. I O  2p0_ 

' 4  U      i  y N = r  U Ltr  H+P U b T f' iN+ P l>! B U LN+ P Q K h N  r P U F L R 
F=PAVAIL'STQN 
I F  <  F . LE . . 8 ) XTRES- 1 
1 1  <■  i-  c  LE  -  .  f- )  X  i  KhS=2 
IRF.LE. .4>XTRES=3 
IF<F. LE. . 1 )XTRES=4 
L  EFW  T=L.EF  WT+POLEFH+F 
S  T  M  WT~  S  T  f  1 W  T + P  Q  S  TMM  *  F 
P  Q  B  i  J  L  N = P  Q  B  O  L  H  *  h 
PRES=PRES+PQRESH*F 
J 00  CON  i I HUE 

I F < RFALL .  GT.  0.5) r'OLYHA- 0 . 

RETURN 

END 


S!  IBROI  IT  I  HE  N 1  TP'..  RDEP,  POM,  EFH,  TEMN,  NMAX,  NM I N,       ROWGF,  PERN,  POPPLT, 
1NPART..  NSTRES.  RESN,  DREQN,  DEFCIT,  USE..  LCONC,  H20BEF,  H20CAP,  UBLUS, 
y'l  fphiT  OnTxx.  QPCC  ■  X,  K  J, JIG  hKVl  •  WS  UK > 

INTEGER" FR<45,  S  ) 

DIMENSION  PCOT (2 00,  9) 

fTiMMOM  -'COIVFR..  DAY..  L  J  J.-  PCOT..  ISTbUK 

COMMON  STMWT, ROOTWT 
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8  INTEGER  FRVL 

9  PEAL  NMAXC5),  NMIN<5>j  HEART <5>,  LCONC..  LEFR,  LEFUT,  LEFRS,  LEFRI 

1  0  DATA  APF'L-'  0 .     WLEF-" 0 .  s>  l*ISTM-y  0 .     UGRCOT.-"  0 .  ■-,  URuT,"  0 .     SCON," 0 . 

1 1  DATA  ECOH  •■•  0 .     WCGTX/  0 .  / 

12  C        NITRGUhN  SUBROUlINt  FOk  SIMCOl  II 

13  BURR=0. 

14  BEFCIT=0. 

15  £EEDR=0. 

is  con  on=<co  rxx+GRCOTX > 

1?  EXC=0. 

18  GRGk=C0 i  rON-OOGPCOl+WCOTX) 

1 9  XN= .  Q5 1 5+2  0  0  0  0 .  ■■  POPPLT 

20  NSTRES=0 

2  i  i  ;UI=Ki  liJSP 

22  CD=30.43 

23  CL=C43560.''ROWSP^POPPLT)+'(30. 48**25 

24  v I  0 i =CW*CD*CL 

25  AW=C 1.^42. )*30.48*CJJ+7) 

26  AL=AI.J 

2  ?  A JJ=  ( 1 .       .  >  *  3  0 .  48*  (.  JJ+7 

28  IFCAW.GT.CW>  AW=CW 

29  I F  <  AL .  GT .  UL  >  AL=CL. 

30  IFCAB.  G  i . CIO AD=UD 

31  VPLT=AW*AD*AL 

32  PERN=(VFLT.--  V1  GT  > +74 .  5+POM.-  POPPLT 

33  pERH=KERN*<  i .  -(H2uDEF.'<H20CAl-'+l  0.  >>**2> 

34  TEMH-TEMN+  C  V  TOT-VPLT  )  +74 .  5*P0IV  C  PuPPL  T+VTOT  :> 

35  C  CARDS  INSERTED  IF  SIDE  DRESSED..   FORM  AS  FOLLOWS 
■i&  IF  CJj.EQ.40>APPL=&S.7 

37  IFCAPPL.LT. 1. >  GO  TO  1 

38  I F ( R . LT . 0. 05  >  _ GO_TG  1 

63  TtMN=  i  LMN+  ( AKF'L*th  N*453 .  6  >  ^POPPLT 

40  APPL=0. 

41  1  XNUF-XN 

42  USt=0. 

43  SUPR=1. 

44  SEEDR=NMAXC2)*CG-I  i OH+0. 41b-HPART< 2> 

45  BURR=NMAKC3)*C0T  TON* 0 . 278-NP  ART  C  3 ") 

46  22  LEFR=MMAX< 1 > +LEFWT-NPART  < 1 > 

47  STMR=NMAXC4>*STMWT-NPARTC42 
49  kOTk=NMh i  4 ;  *kOGTWT-HPaRT<  5  .:• 

49  IFCL EFR . LT . 0 . >  LEFR=0 . 

50  IFCSEEBR.LT. 0. >  SEEDF-0. 

51  IF<  BURk  ,  LT .  0 .  '}  Bl  iRR=  0 „ 

52  IFCSTMR.LT.. 0.)  STMR=0. 

53  IFCROTR.LT. 0. >  ROTR=0. 

54  BREQH-GF  EDR+LEFR  i  BURRh  STMR-:  ROTR 

55  SEEDR 1 =NMrtX ( 2 > *GRGR* 0.416 

56  LEFRl^NMAXC  1  ':>  *C  LLP  W  I  -WLEF  > 
5 17  IF  Ci  EFKi  .  L  I' .  O  H  i  i  Rl=fl, 

58  I  BURHIN-HIN.   HIT R.   REQ  FOR  BUR  GROWTH 

ps»  bUrm  i  n=nm  i  n  >:  :-■  >  +gf:gr*  o  .  273 

fc 0  BURR  1=<  UMAX < 3  > -MM IN £.35  >* GRGR+  0 .  2 76" 

61  STMR1  =NMAX  C  4  >  +  <  S  \_  MW  I  -  WSTM  > 

KUlRl  NMh'%: "i4  ■■■  "'•  i  ici  i -hikH  f  ) 

C3  BOL 1 =BURM I H+SEEDR 1 

64  IFCBOLJ..LE.  0.  >  BOL1=0.  000001 

»5  REQi  =LtFR  i  +'r;FE  Dk  1  I-BURRI+STMRHROIRI+BURMIN 

t'1"-'  I F ( H20DEF  .  GT .  0 .  5*H20CAP*  1  0 .  ) XHI IP-XN* 0 .  9 

f?  IK  H20DEF  .GT.  0. 6+H20CAP+ 10.)  XNUP-XM*  0 .  8 

#9  L  t-  < H2U Dl-t- .  G'i  .  0 .  9 1  H.?Ol  :AP*  i  0  -  > KH!  IP  :  N+  f: .  1 

7 0  (FCI i?ODF f  , G]   .  95 ' > i.'-X'f 'ip* 1  0  } ' :R      r r-  p 

1  iKI'LliNH  ILMM  Li.:  :!'jp.>  KC'ii.' 


7^  XNUP1=XNUP 

73  IPC  REQI . GT. XNUP5GO  TO  2 

■  4  IF < RF.Q  1.LE.G-0 )  RFQ 1  - 0 . 

75  IFCREQl.LT. XHUP>GO  10  10 

76  XNUP=REQ1 
??  GO  i  0  3 

78  2  IFCXHUP.L.T.BOL1     >  GO  TO  f. 

?y  SUPR-CXNUP-BOL1     >•••'<  REQI -BOL  1  > 

8 0  I F  < SUPR . L l . . 0 0 0  0 0 i ) SUPR= .  0 0 0 0 0 1 

81  NSTPES=1 

82  3  IFCPERN. GE. XNUP)  GO  TO  4 

83  IFCPERN+TEMNrGE.XHUP)  GO  TO  5 

84  I F  <  PERN+TEMN  .IT.  BOL  1     ) "  GO "  FG  g 
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SUPR  i = <  PERN+ TEMN-BOL 1     VCREQ1-B0L1  > 
I F  C SUPR  i . LT . SUPR  )  SUPR=SUPR 1 
I F  < SUPR . LT . . 0 0 0 0  0 1  ) SUPR= .  0  0 0  0  0 1 
NSTRES=1 

i  Er-1N=  i  tMN-XNUP+pLKN 

IFCTEMH. LT. 0. 0)  TEMN=0. 

NPART < 1 )=LEFR1#SUPR+NPARTC 1 > 

I  h  ( NPAR  i  (D.LT..  0001)  NFART<1)=.  0001 

NPART  < £  >  =NPARTC 2 >  +SEEDR 1 

I F C NPAR I C  2  ) .  L.T.  ^ 0 00 1  )  HPARTC2>=. 0001 

HP  Ah!  i  C  6  )  =NPAK  I  C 6 )  +b*URM  I H 

npart<3)=npartc3)+burri+supr 

i f  c  hp art  c  3  ) .  lt .  .  00  0 1  )  _  hp  art  c  3  > = .  0  0  0 1 

NPAK  I  (.4  »=S  I  HKl+SUh'R+NPAK  I  C4.3 

I F  < NPART  C 4 ) . LT . . 0001  )  NPART <  4  )  = .  0 0 0 1 

HP  ART  5 )  -RJJTR 1  +S'JF  R4  HP ART C  5  ) 

Ih  CHh'Ah:  Kb>.L  I . .  0001  >  NPAK  I  (5)  =  .  0001 

GO  TO  20 

DEFCIT=BOLl  -XNUF 
IFCRESN. GT. 0. )  GO  TO  7 
HSTRES=3 

I F ( DEFC I T.-'BOL  1 .  GT.  0.67 )  NSTRES=4 
NPART  C  2  >  =HPAR  I  C  2  >  +XNUP*ShEBR  i  .-'BOL 1 
I F < NPART < 2 > . LT. .  0001 )  NPART C 2)=.  0001 
NPART  C  3)=NPART  <  3  )  +XNUP+BURM I N/BOL 1 
IK  NPAK  I  Cj).L1  .  .  0001  )  Hh'AK  K3>  =  .  0001 
TEMN=T  EMN- X H U  P + P E R N 
IFCTEMH. LT. 0. )  TEMN=0. 
GO   MJ  20 

NPART < 2  ) =HPART  C 2 ) +SEEDR 1 
IFCNFARTC2).LT. . 0001)  NPART (2)=. 0001 
Hp  Ah:  i  ( 3  >  =NPAkT  C 3  ) +BURM I H 
IF <NPARTC3  3.lt.  .  0001  )  NPART1- 3)=.  0 001 
Hh'AK  K 1 )  =NPAh'T  (  1  >  -DEFC  I T+LEFRS--RFSH 
I F  < NPART C 1 ) . LT. .  00 01 )  NPART C  1  )  = .  0 0 0 1 
NPART  <  4)-NPAF  TC4  )  DEFC  I T  + •  TMRS-'RESN 
i F c  NPAR  I  C4).LT.  .     0 1  )  NPART C4i=.  0 u 0 1 
NPART  ( 5  >  =NPART  C  5  > -DEFC  I  T+ROTRS-'RESH 
I F  < NPART < 5  ) . LT . .  00 01)  NPART (5 ) =.  0 0 0 1 
ThMH= I EMN-KNUP+PlkN 
HSTRES=2- 

USE=  < DEFC  I T-RESN  >  -"BOL  1 
IF  (USE.  GT.  .  l;'NSTRES=3 
I F ( USE . GT. 0. 30) HST  RES=4 
IFCTEMN. LE. XNUF)  TEMN-0. 
GO  ifi  20 

I F < DREQN . GT. REQ 1 >  EXC=XNUF 1 -REQ 1 

IFCHREQN.LT.XNUPl.AHPiEXC.GT. 0. )  EXC=BREQN-REQ 1 

Ihfiii-Tu'il!  h  XC  -REQi  fPt-i-.'N 

IF  C  I  Lf  IN  -  L  i  .  0.  )  Tif.,1n'=0. 

IF<CDRE'3N--GttDR>J.Ei0. 0>  GO  10  20 

NPAK!  (2.3  -- NPf.KT < 2 )  +  SttJiR  1 

IFCNPARVC2).LT. . 0001)  NPnRr<2>=. 0001 

NPART C 1 )=NPARTC 1 3  +EXOLEFR'  C  DREQN  SEEDR )  +LRFP 1 

I F  <  HP  ART  CD.  LT.  .  0  0  0 1  )  NPART  C  1  )=.  0  0  0 1 

HP  ART  C  3  )  =NPART  C  3  >  +EXC+BURR,"  C  DREQN-3EE  DR  >  +BURR 1 

I F ( NPART C 3 ) . LT . .  0 0 0 1  )  NPART C3)=.  0 0 0 1 

NPART C 4  > -NPART  C 4 ) +EXC+STMR' C  DREQH-SEEDR) +STMR 1 

IF<NPARTC4).LT. . 0001)  HPART<4)=. 0001 

NPART C 5)=NPART< 5 ) +EXC+ROTR^ C DREQH-SEEDR ) +ROTR1 

IFCNPAR  I  (i»)  .  LT.  .  0001  )  NPARTC5)  =  .  0001 

STMWT=STMWT+US 

pnOTtlT=ROOTWT+UR 

L  EFRS=NPARTC 1 >-NMINC 1 >*LEFWT 

STMRS=NP ART C 4 ) -HM INC  4 ) +STMUT 

ROTRS'f  NPART  C  S>-HM  INC4  >  +ROGTWT 

Ih  C CO  I XX+GRCO I X. L 1 .0.01)  GO  I O  2 i 

SCOH=NPART  C  £  )  -GBLOS+NP ART  C  2  )  '"COTTON 

BCON=NP ART C 3  > / C COTTON* 0 . 270 ) 

IP  Cfci C ON . LT . . 0 U 0 i )  B C O H = .  0 0 0 1 

NPART  C  2 )  =NPAR  T  C  2 )  -GBLOS+NP ART  C  2  )  •"'CO  I  TON 

Ih  CNPARTC2) . LT. .  0001  )  NFARTC2)=. 0001_ 

Nh'RK  1  C3)=NF'RR  I  C3) -GBL0S*NPART<3)/'C0T  l  ON 

IFCHPARTC3  3.LT. . 0001)  NPART<3)=. 0001 

STCOH=HFART C 4 ) /STMWT 

I h  C  S I  CON . LT . . 0 0 0 1 )  STCON= .  0 0 0 1 

RCON-NPARTC 5 ) /ROOTWT 
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162  LC0NC=NPART(1  >.-"LEH.JT 

163  I F  <  L  i":  0  NH .  LT . .  0  0  0 1  >  L  C  0  H  C  - .  0  0  0  i 
lfi4  IF < I  EFRS . LT . 0 . )  L EFRS= 0 . 

165  IF < STMRS . LT . 0. )  STMRS=  0 . 

1  f.f.  IF < ROTRS .  L 1 .  0 .  )  ROTRS=  0 . 

167  RESN=LEFRS+STMRS+ROTRS 

16S  IF  < RESN . LT. 0. > RESH= 0 . 

169  IFtJJ.NE.  JJIOGO  TO  80 

1-7Q  WR I TE  (  6  ■  5  0  •'  LCOMC  SCOH,  BOON,  S  ICON,  F'COH,  NS1  RES  - 

171  SO        FORMAT  < "'   '   '  CONCENTRATIONS  ',5F7.4,  •'  NSTRES=M20 

172  WRITE<6..  75  WART 

17".  75        FORMAT  ( '   >>'   NPART<  i-5)   '..  5F8.4> 

174  SO  CONTINUE 

17b  ?C  WLtK=LEl- W I 

176  WGRCOT=GRCQTX 

177  USTM=STMUT-WS 

178  UCDTX=CQTXX 
17w  UROT=ROQTWT-WR 
ISO  3TMUT=STMLJT-WS 

181  ROOTWT=ROOTWT-UR 

182  RETURN 
133  END 


MCKIN*CLMCOT.J 

1  SUBROUTINE  PLTMAP(PBOLL..  WTBOLL,  ThVG,  NEWDAY,  PQBOLN,  PQBOLD,  PQBOLX, 

2  1KTRES,  NOBR1,  NOHOIi,  BOLLST,  SQLOST,  CGTXX,  GRCOTX,  ROUSP,  PQFLR,  POLYNA, 

3  2FAGE,  I  NOD..  NOBR,  POPPLT,  NUN  CRN..  NUMOPN,  NVEG,  NBRV,  FRV,  FAGV,  WTBOLV,  NV 

4  3,  BLOOM..  LEAFW,  LEFWT,  NFL,  CLIMAT,   STMW,  ROTW,  GBLOS,  WLOST,  NSTRES,  JJK> 

5  D I  MENS  I  OH  CL I  MAT  (  3  0  0,  7  > 

6  INTEGER  JKX45,  8) -'360*0,',  JKV<30,  5)/ 150*0/' 

7  DIMENSION  WLOST C 3)  " 

3  DIMENSION  STEMW(20Q>,  ROOTW<2005 

9  COMMON  /COM/'FR,  DAY,  L  J  J,  PCOT,  ISTSQR 

I  0  COMMON  STMWT,  ROOTWT 

II  REAL  LEAFW 

12  REAL  LEFWT 

13  REAL  LEAFWT<2Q0V200*0./' 

14  INTEGER  3QL0ST,  BOLLST, BLOOM 

15  INTEGER  FRV<30,  5>,  FAGV<30,  5) 

16  DATA  AVTEMP/"O.V,  ISQ.-C  ,  TNAIN-  0. 

1 7  REAL    THPVC3 0  > /3 0* 0 .  s>  DSV ( 3  0 >  /3 0*  0 . 
i  a  I MTEGER    N  l  L V  <  3  0  >  .-'3  0*  0-" 

19  REAL  TBRV<30>/*30*0. s,  WTB0LV(3Q, 5) 

20  INTEGER    XTRES,  FR(45,  3_  >,  NTL<45  V45*0/,  FAGE<45,  8  >,  POLYNA 

d  1  KEAL           PCO  i  <  2  0  0,  9  > ,  h'BOLL  (  St) )  .■  WTBOLL  (  45 .  8  > ,  DSQ  ( 45)  /4b*  0 . 

22  1 TAVL  ( 45 )  z-45*  0 .  /,  T  (  45 >  -"45+  0 .  / 

23  I F< NSTRES . EQ . 1 ) NST  PES= 0 

24  ROD !  W<.  U'J=ROO !  WT-RO  l  W 

25  LAST=0 

26  GBLQS=0. 

27  STEMW (  J J  >  =STMWT-STMW 

28  IF< JJ.LE.24>G0  TO  3000 

29  8TMWT=S I MWT-STEMW ( JJ-24 > 

30  ROi  iTW  I  =ROO  I  W  I  -ROOTWt"-  I.  i-24'j 

3 1  WLOST  ( 1 >  =STEMU  ( JJ-24  > 

32  WLOST  ( 2  >  =ROOTW  ( JJ-24  ) 

33  8000  CONTINUE 

34  PQFLR-O. 

35  XTRES=0 

36  LEAFWT(JJ>=LEFWT-LEAFW 

37  XM= 0 . 0529- (2.1 47+POPPL F > / (10. +*7  > 
33  N0BR=2 . 0+XM*ROUSP+ 1 . 

39  C  THE   '+1.  -'   IS  ADDED  TO  NOBR  TO  ACCOUNT  FOR  THE  MAIN  STEM  NODE 

40  C  WHERE  THE  BRANCH  IS  ATTACHED. 

41  IF< ISQ.EQ. 1>G0  TO  3 

42  IFCI.GE.3DG0  TO  1 

43  C  AVTEMP  IS  ACCUMUl  ATED  AVG  TEMP  FOR  FIRST  31  DAY:-; 

44  AVTEMp-(  ( JJ-1  >+hVTEMP+TAVGVJJ 

45  RETURN 

46  1   I F  ( AVTEMP .  LE .  27 .   GO  TO  2 

47  ISQ=1 

43  ISTSQR=I     +(AVTEMP-27. >+3. 

49  IN0D=6. +1 . 333*<AVTEMP-27. ) 

50  NONOD^INOD 
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il  GO  TO 


ISTSQR-I 


53  ISQ=1 

54  INQB=7 

55  NQNOD=INOD 

5b  3  I F  < I . GE . I STSQR ) GO  TO  4 

57  RETURN 

58  4  IFCI.GT. I STSQR > GO  TO  5 

59  NVEG=30 

60  NBRV=4. 5-0. 00002895+POPPLT+l 

61  FRLST=0 

62  FRLSTV-U 

63  IF<NBRV. LT. 1 )NBRV=1 

64  TV=I+2.5 

65  NV=1 

66  TBRVCl >=I+6. 0 

67  DSV<1)=JJ 

68  DO  6  L=i,  I NOD 

69  IF (LAST. EQ. 1 )GO  TO  6 

70  FR(L, 1)=4 

71  FAGhd.i  i>=l 

72  6  CON T I  HUE 

73  TMAIH=I  +2.5 

74  T <I MOID  =  I  +6.0 

75  DSQ<IHOD>=JJ 

76  NONOD=INOD 
N0BR1=2 

78  IF (LAST. EQ. l)GO  TO  5 

79  FR-<  I  HOD..  2>=1 

80  hRV<i..  1>=4 

81  5  I F  < HEWDA Y . EQ , 0 > GO  TO  7 

82  COTXX=0. 

83  GRCGTX=0. 

84  NUMGRN=0 

85  NUMOPN=0 

86  BLriOM=ij. 

87  7  BOLINC        =  <  PQBOLD+pQBOLH  >  ■"  PQROL X 

88  IFCNFL.EQ. 1 )GO  TO  901 

89  IF < BOLINC        .LE. .S5)XTRES=1 

90  IFCBOLINC        . LE. . 6>XTRES=2 

91  IF< BOL I HC        . LE. . 35) X JRES=3 

92  IK BOL  I  HC        .  Lfc . .  2) Ml  KhS=4 

93  901  CONTINUE 

94  I K  NE L>J DAY.  t O. .  0 ) G O  T O  6 3 0 

95  Du  61  0  L~l .,  HOHOD 

96  DO  610  M=l, HOBR1 

97  IF<FR(L. M> . EQ^O)  GO  TO  610 

98  h  AGt  L  i  M  )  =FAGt  <"  t_  s  M  3  +  i 

99  I F  <  FR I  L>  M  ) '.  HE 7 1 )  GO  TO  3 

»0  IRFAGE'X,  M).NE.   28) GO  TO  8 

'1  1 1-  <LAS  I .  tQ.  1  )GO  10  8 

02  PQFLR=PQFLR+PCOT  <  1 ,  7  > 

03  I F ( POL YHA . EQ . 1 >  GO  TO  9 

04  FR<L,M)=4 
:>  BLOOM=BLOOt*l+l . 

06  GO  TO  8 

9  FRO. ,  ri>=2 
08  3  CONTINUE 

i  IF<FR(L, M>.NE.2)  GO  TO  12 

!  I h ( F  AGt  e  Lj  M  > .  NE .  76 )  GO  iu  10 

1 1  I F < LAST . EQ . 1 ) GO  TO  10 

:  FR<Lj M)=3 
13                 10  CONTINUE 

.14  IF < J  J . EQ . JJK . AND . LAST .EQ. 1 . AND . FR ( L,  M ) . EQ. 2. AND . FAGE C L,  M ) . LT .  28 > 

15  JFAGEXL..  M)=2S 

Lb  NAGh=hAGfcXL>  M>-  28 

17  IF < H AGE .  LT .  1 ) GO  1  O  6 1  0 

1 «  If-  < NAGE .  G  l  .  6 0     ) NAGE--S0 

•  19  IF<FR<L>  M> .  HE.  2)  GO  TO  Vd 

L20  NUMGRN=NUMGRN+1 

t£i  wTBOLL'iL..  M)=wi  BOLL<L..  M)+PBOLLCNAGE  >*BOL  INC 

"  "-  GRCOTX=GRCOTXH  WTbOLL(L,  M> 

?  GO  TO  610 

i  12  IF<FR ( Lj  M ) , Hfc. . 3 >  GO  TO  61 0 

5  NUMOPN=NUMOPN+l 

COTXX=COTXX+yTBOLi  (L,  M) 
61 0  CON  i INUfc 
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DO  710  LV=3,  HVEG 

DO  710  MV=1,  HBRV 

I F  (  FRV  < L V,  MV  > .  EG!.  0 >  GO  TO  71 0 

FAGV(LV, MV>=FAGV(LV, MV>+1  ' 

I F  ( FRV  (  L  V,  MV  )  .  HE .  1     GO  TO  78 

IFCFAGVCLV,  MV>.NE.  28 ) GO  TO  78 

IF(LAST.EQ.  DGO  TO  78 

I F<POLYNA. EQ. 1 )  GO  TO  79 

KQl-Lh-PQl-LR+l-'COT'::  I,  f  ':> 

FRV<LV,  MV>=4 

BLOOM=BLOOM+l. 

GO  1 0  7Fi 

79  FRVCLV,  MV>=2 
78  CONTINUE 

IFCFRVCLV,  MV>.NE.2>  GO  TO  82 
I F< FAGV (  LV,  MV  >  .  HE .  76 >  GO  TO  80 
IF (LAST. EQ. 1 > GO  TO  80 

frvclv,  mv>=3 

80  continue 

i f  (  j  j .  eq .  j  jk .  and .  last .  eq .  1 .  and .  frv  <  lv,  mv  >  .  eq .  2 .  and .  f  ag  v  <  lv..  mv  .  lt. 

128>fagv(lv,  mv>=23 

HAGE=FAGV(LV,  MV>-  28 
IF<HAGE. LT. 1)  GO  TO_710 
IKMAGE.GT.60  >HAGt=60 
IF(FRV(LV,  MV;'.NE.2;'  GO  TO  82 
NUMGRN=NUMGRN+ 1 

UTBOLV  <  L V,  MV  >  =WTBOLV  <  LV,  MV )  +PBOLL  (  NAGh  >  *BOL  I NC 

GRCOTX=GRCOTX+l.lTBOLV  <  LV,  MV ) 

GO  TO  710 
82  IF<FRV':LV,  MV>.NE.3)  GO  TO  710 

NUMOPN=NUMOPN+l 

COTXy=C:OTXX+UTBOLV(LV,  MV) 
710  CONTINUE 
630  CONTINUE 

IFCJJ. EQ. JJK. AND. LAST. EQ. 1 ) I=TMAIH 

It-  (  I .  LT.  TMAIN>GO  TO  14 

TMAIN=TMAIN+2. 5 

NONOD=NONOD+l 

T(NONOD>=I  +6.0 

DSQ<NONOrO=JJ 

IF (LAST. EQ. l>GO  TO  14 

FK(NONOD,  1 >=4 

FRCNONOD,  2>  =  1 
C  BURNING  PINHEAD  SQUARES 

IF(CLIMAT(JJ,  D.GE.700.  > FRCNONOD.  2>=4 

FAGE(HONOD  1>=1 

14  CONTINUE 

LiO  i-j  L=INOn,  NONOD 

TAVL  (  L >  =  (  TAVL  ( L  >  +  (  J J-DSQ  (  L  >  >  +TAVG  >  /  <  JJ-DS'i"1  f  L  >  + 1 ) 
IF(I.LT.T(L>>GO  TO  15 
IF(NTL(L  >  .  EQ.  DGO  TO  20 
T ( L  >  =T ( L  )  +  0 . 333+ ( 3  0 . -TAVL ( L>> 
NTL(L>=i 
20  IF(I.LT.T(L>>GO  TO  15 
HTL(L>=0 
TAV;  a>  0. 
DSQCL) ^  J J 
KNOB"  0 

HO  J  t.  M  t ,  Ni  "JK 
ir-CICNOH.GT.  0>GO  N.l  16 
IF(FRCL,  M;'.Gr.  CO  GO  TO  16 
ICNOD=l 
T CD =1+6.  0 

IRLAST. EQ. 1 >GO  TO  17 

h R < L .i  M)  =  i 
C  BURNING  PINHEAD  SQUARES 

IFCCLIMATCJJ,  1J.GE.700.  >FR<I  .  M>=4 

FAGt (L,  M>=1 
17  CONTINUE 

IFCL.NE.  I  HOD:-  GO  TO  16 

NOBRl=NOBRi+l 
16  CONTINUE 

15  CONTINUE 
IF(HV.GE.HVEG>  GO  TO  90 

IFCJJ.  EQ.  J.JK.  AND.  LAST.  EQ.  1  >  I-=TV 
IF(I.LT.TV)  GO  TO  90 
TV=lV+2.5 
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219 
220 
221 


234 


254 

'_>  cr  cr 


,=,4 


JJ-DSV<LV)+1. > 


•TMPV<LV>> 


NV=NV+1 

IF ( LAST . EQ . 1 > GO  TO  9 0 0 

hRV<NV,  i  >=4 
900  CONTINUE 

IF<NV.LT.3>G0  TO  802 

IF (LAST. EQ. i  >GO  TO  90 

FRVCNV,  2>  =  1 
C  BURN  I NG  P I NHEAD  SQUARES 

I F  <  CL I  MA  I  i  J  J,  1  > .  Gfc. .  7  0  0 .  F  RV  <  NV, 

TBRV<NV>=I+6.  0 
800      FAGVCNV,  1>  =  1 
90  CONTINUE 

IF<NV.LT.3>G0  TO  802 

DO  95  LV=3, NV 

Trip V  <■  LV  •'  =  <  TMPV  <  LV  ">  *  C  J.  1-DsV  <  LV '>  > +TAVG  ■'  / 
IF<I.LT.TBRV<LV5)  GO  TO  95 
IF(NTLVCLV).EQ.l)  GO  TO  97 
NTLV<LV>=1 

TBRV C  LV >  =TBRV <  LV )  +  0 .  333+ ' 
97  IF<I.LT.TBRV'XV;0  GO  TO  95 
TBRVCLV)=TBRV<LV)+6.  0 
NTLVCLV>=0 
TMPVCLV^O. 
DSV<LV>=JJ 
IVNOD=0 

DO  96  MV=1, NBRV 
IFuVNOD.  GT.  0>  GO  TO  96 
IF<FRV<LV,  MV>.GT.  iO  GO  TO  96 
TVNOD=l 

IF < LAST. EQ. i  >GO  i O  95 

FRVCLV,  MV>  =  1 
C  BURNING  PIHHEAD  SQUARES 

I F  <  CL  I  MAT  C  J.J..  1 )  .  GE .  6  0  0 .  >  FRV  <■.  LV,  MV  > =4 

FAGV<LV,_MV>  =  1 
96  CON l I NUE 
95  CONTINUE 
802  CONTINUE 

SQLOS 1=0. 

BOLLST=0. 

KYN~NSTRES 

i  MAIN"  I  hiAIN+i . 

TV=TV+1.  33+XYN/3, 

IF (LAST. EQ. 1 j GO  TO  1 000 

DO  i  002  L=INOD,  NONOD 

DO  10  02  M=l, HO BR 

I F <FR L,  m  .  EQ .  5.  AND.  JK < L,  M ! 

I F  < FR  c L,  M > . EQ . 6 . AND . JK <  L, M  J 

GO  TO  1002 

1001  FR<UM>=4 
SQLOS  T=SQLOST+l 
GO  TO  1002 

1003  frc:l..m>=4 

BOLLST=BOLLST+i 
GRCGTX=GRCOTX-I.JTBOLL<:L, M) 
GBLOS=GBLOS+WTBOI  L<L,  M> 
WTBOLL<U  M>=0. 

1002  CONTINUE 
1000  CONTINUE 

I F ( LAST . EQ ■ 1 >  GO  TO  2  0  0  0 
DO  2002  MV-  1,  NBRV 
DO  2002  LV=1,  NVEG 

I F  < FRV  < LV, MV ) . EQ . 5 . AND . JKV < LV,  MV  > . EQ . J J >  GO  TO  2001 

I F  <  FRV  (.  LV,  MV  > .  EQ .  6 .  AND .  JKV  <  LV,  MV ) .  EQ .  J  J  >  GO  TO  2  0  03 

GO  TO  2002 
2001     FRV XV,  MV::'=4 

SQLOS  T=SQLOST+ 1 

GO  TO  2002 
2003    FRVCLV,  MV>=4 

BOLLST=BOLLST+ 1 

GRCOTX=GRCOTX-WTBOLV  < LV,  MV> 

G BLO S = G B L  O S+UTbOLV  < LV,  MV  > 

WTBOLVCLV,  MV>=0. 
2!?02  CONTINUE 
1O00  CONTINUE 

I F  < XTRES . LE . 0 . . AND . NSTRES . EQ . 0 ) GO  TO  125 

DO  114  L=INOD,  NONOD 

T<L>=Ta.)  +  1.33+XYN/4. 


.EQ.JJ)GO  TO  1001 
,EO.JJ>GO  TO  1003 
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28b 


282  IF<XTRES.EQ.4:>T(L>=T(LJ+1.50 

283  I F  <  XT  RES .  EQ .  3  >  T  (  L  )  =T  (  L  >  + 1 .  £  0 
2S4  1 1-  (  XTRES .  EQ .  2  >  T  <  L  >  =T  ( L  >  +  0 . 6  0 
28^  I F  (  XT  RES .  EQ .  1 )  T  (  L  >  ^T  (L)  +  0 .  £  0 
286                     IF  (LAST.  EQ.  1  >  GO  TO  1 1 4  0 

DO  i  14  M=i,  NOBR 
I F  (  FR  (  L..  N  > .  NE .  1  >  GO  TO  119 
289  IF<  XTF'ES .  EQ .  0 ) GO  TO  119 

29m  GO  10  U09,  HQ,  111..  112)..  XiRES 

29 1  1 09      I F  (  FAGE  ( L,  M> . GE . 1 2 . . AND . FACE ( L,  M > . LE . 1 2 . >GO  TO  1 1 3 

292  GO  TO  114 

293  110      I h  < h AGE ( L,  M ) . GE . i2. .  AND .  F AGE i.L>  M  •' .  L  E .  12 .  ) GO  IU  iij 

294  GO  Tu  114 

295  111       I F  <  F AGE  C  L,  M  > . GE . 9 . 0 .  AND . FACE <L..  M> . I.E.  12.  > GO  TO  113 

296  GO  TU  114 

29?  112       I F ( FAGE ( L,  M > . GE. 8, 0. AND . F AGE ( L,  M > . LE . 1 3 . > GO  TO  113 


298  GO  rO  114 

299  113  CONTINUE 
3  0  0  FR(L,  M>-5 

301  JK(L, M>=JJ+8 

302  GO  TO  114 

303  119  CONTINUE 

3  04  I  h  (  NS  I  RhS .  EQ .  0  ;  GO  TO  1 1 4 

305  GO  TO  (114,  116,  117,  118X.  HSTRES 

306  118      IF(FR(L, M> . EQ. 2. AND. FAGE(L,  M>.LE.38)G0  TO  120 

307  1 1-  (  FR  (  L,  M  '■• .  EQ .  1 .  AND .  h  AGh  ( L,  M  > . LE. 6  >  GO  TO  114 
3 OS  117      IF < F R ( L,  N ) . EQ . 2 . AND . FAGE ( L,  M ) . LE . 33  > GO  TO  120 

309  116      I F (FR ( L, M > . EQ . 1 . AND . FAGE < 6,  M > . LE . 3 > GO  TO  114 

31 0  GO   IU  114 

311  120  CONTINUE 

312  FR  <  L,  M  >~S 
317  JK<L,  M>=JJ+8 

314  114  CONTINUE 

315  1140  CONTINUE 

316  DO  214  LV=1,  NVEG 

3 1 7  TBRV  ( L V  >  =TBRV  <  LV )  + 1 .  33+XYN-"3 . 

3 i  8  I F ( XTRES .  EQ . 4 ) TER V ( L V  > =TBR V ( L V  >  + 1 . 5  0 

319  I F ( XTRES . EQ . 3 ) TBRV (LV >  =TBRV ( LV  >  + 1 . 2  0 

320  I F ( XTRES . EQ . 2  >  TBRV ( LV  >  =TBRV ( LV )  +  0.6  0 

32 1  I F (-XTRES.  EQ .  10  TBRV ( L  V  >=TBRV ( LV )  +  0 . 2 0 

322  It-  (LAST.  EQ.  1  -'GO  TO  2140 

323  DO  214  NV=1, NBRV 

324  IF<FRV(LVLMV>.NE. l>GO  TO  219 

325  1 1-  (X  I  RES".  EQ.  0>GO   lO  219 

326  GO  TO  < 2  09,  210,211,212),  XTRES 

327  2  09      I F ( F AG V ( L V,  MV ) . GE . 1 2 . . AND . FAG V ( LV,  NV ) . LE . 1 2 . ) GO  TO  2 1 3 

328  GO  TU  214 

329  210       I F ( FAGV ( LV,  MV ) . GE. 12. . AND . FAGV ( LV,  MV > . LE . 12. > GO  TO  2 1 3 

330  GO  TO  214 

331  211       IF<FAGVCLV^  MV>.GE.9.  0.  AND.  FAGV  (LV.-  MV>.LE.  12.  >GO  TO  213 

332  GO  TO  214 

333  212      IF (FAGV ( LV,  MV  > . GE . 8. 0 . AND . FAGV ( LV, MV  > . LE , 1 3 . J  GO  TO  213 

334  GO   rO  214 

335  213  CONTINUE 

336  FRVCLV,  MV>=5 

337  JKV(LV,  MV>=JJ+8 

338  GO  TO  214 

339  219  CONTINUE 

34 0  IF( NS I RhS . EQ . 0 ) GO  TO  214 

341  GO  TO  (  2 14,  21 6,  2 1 7,  2 1  8  > ,  NSTRES 

342  213       I F ( FRV ( L V,  MV ) . EQ . 2. AND . FAGV ( L V,  MV ) . LE . 38 > GO  TO  22 0 

343  I F (FRV ( LV,  MV > . EQ . 1 . AND . FAGV ( LV,  MV > . LE. 6) GO  TO  214 

344  GO  TO  214 

345  21?      IF(FRV(LV, MV> . EQ. 2. AND. FAGV(LV,  MV) . LE. 33>G0  TO  220 

346  2 i 6      I F ( FRV ( LV,  MV > . EQ . 1 . AND . FAGV ( LV,  MV > . LE. 3) GO  TO  2 1 4 

347  GO  TO  214 
343  220  CONTINUE 

349  FRV(L.Vj  MV)=fe 

350  JKV'.'LV.  MV) -.1.1+3 

351  214  CONTINUE 

352  2140  CONTINUE 

353  I F ( X T R E S . E Q . 0 ) G O  TO  126 

354  GO  TO  (  i 30,  131,  132,  133),  XTRES 

355  133       TMAIH=TMhIN+1 . 0 

356  TV=TV+1.0 

357  GO  TO  126 

358  132       TMAIN-TNAIN+. 7 
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TV=IV+.7 

GO  10  Vdh 
131       TMA I H=TM A I H+ . 4 

TV=TV+.4 

GO  TO  126 
130       TMAIN-=Tr1AIH+U.  0 

TV-TV+C^O 
126  CONTINUE 
125  CONTINUE 

IF<JJ.LE.71>G0  TO  2141 

LEFi.iJT=LEFUi  I  -LEAFWT  C  JJ-7  0  > 

WLGST<3>=LEAFWT  <  -JJ-7  0 ) 
2141  CONTINUE 

RETURN 

END 
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G"DhTh..  L 
D  ATA  0  CIS- 
CO 00  01 
000002 
000003 
000004 
000005 
000006 
000007 
00 0008 
CO 0009 
000010 
00001 1 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
0  0  0  02 1 
000022 

000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
00003S 
000039 
000040 
000041 
000042 
000043 
00  0044 
000045 
000046 
000047 
000048 
000049 
000050 
00  0051 
000052 
000053 
000054 
000055 
000056 
000057 

00005C 
00  005':  • 
000060 
000061 
0 0 0 062 
000063 
000064 
000065 
000066 
000067 
000068 
000069 
000070 
000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 


COTBA. 

RLIB69  01,-16-16:06:20 

DATA  FOR  SIMCOT  1 1 . THE  DATA  CONSISTS  OF  SIX  SECTIONS,  FOUR  OF  WHICH  ARE 
REQUIRED  BY  THE  PROGRAM  FOR  PROPER  OPERATION. THE  OTHER  TWO  SECTIONS 
MUST  BE  SUPPLIED  BY  THE  USER  TO  SIMULATE  HIS  CROP  AT  HIS  LOCATION. THE 
FOLLOWING  DATA  ARE  AN  EXAMPLE  WHICH  THE  USER  CAN  USE  TO  CONSTRUCT  HIS 
OWN  DATA  FILE. 

**************************************************************^^ 
PROGRAM  SUPPLIED  DATA. 

12345678901234567890123456789012345678901234567890123456789012345673 


390 


[ 


PORTS 
020 
020 
020 
020 
020 
020 
020 
020 
020 
020 
030 
030 
030 
030 
030 
050 
050 
050 
050 

05  0 
030 
080 
080 
080 
03  0 
060 

06  0 
060 
060 
060 
080 
080 
080 
030 
080 
080 
080 
080 
08  0 
030 
030 


It 


PQSTM 
,  20 
,20 
,20 
,20 
,  2C 
,20 
,20 
,20 
,  2  0 
,20 
,  30 
,30 

30 
,30 

3  0 


,50 
5n 
50 
,80 
i  y  u 
,  8  0 
,80 
SO 
,60 
60 
66 
,60 
,  6  0 
3  0 
8  0 
8  0 
,  3  0 
,  8  0 
,  8  0 
,  8  0 
,  8  0 
,  80 
,30 
,  8  0 


][ 


PQLEF 

,20 
,  2  0 

20 
,20 

2  0 

20 

20 

2  0 
20 
20 
30 
30 
30 

3  0 
30 


.48 
.48 
.48 
.48 

.48 
.40 
.40 
.40 

,40 
.40 


6  0 
60 
6  0 
,  60 
,  60 
,  6fl 
,  60 
,60 
60 


] [PQFLR 
00 
00 
00 
00 
0  A 


00 
00 


3 [NOT  USED] 
,10 

,  ns 

20 
,  ^0 
,40 
,48 
56 
,64 


00 


00 
ii  0 
0  0 
00 
00 

00 


00 

o  o 

00 
00 
00 
0  0 
00 

6  o 

0  0 
50 


8u 
92 
04 
16 

40 

56 


04 

2C 
,46 


3.  24 
3.50 

3.70 

3.  90 

4.  10 
4.  -"iO 
4.50 
4.76 


,  8  0 
,  8  0 
,  8  0 

8  0 
,  8  0 

8  0 


******  *  ****  *  +  *  *  *  ************  *  *  +  *  **:»  *  *  *  *  *  *  ******  *  *  *  *  *  +  *  +  +  *  +  ****** 


********** 


PROGRAM  SUPPLIED 
. 040  . 040  . 05  0  , 


150 
015 


130 

0 1  0 


!  120 
,  009 


DATA 
060  . 
22S  . 
110  . 
007  . 


.THE 

070  . 

Too  ! 

005  . 


FOLLC 
100  . 

095  ! 
004  . 


iWIHG  IS  THE  F'BOLL.  DATA. 


080 
0  02 


075 

o  0  i 


U  (  II 


06  0 


215 
050 


040 


19 

03 


**********************  *  *********** * .<+ **************************** 

USER  SUPPLIED  DATA. SUPPLY   I  I  ILL. 

WEATHER  FOR  COPIAH  COUNTY, MISS.  ,1972 
SUPPLY  NUMBER  OF  DAYS  OF  WEATHER  DATA  IN  DATA. 
i87 

****** *****************  ************ ***H ******** 

SUPPLY  WEATHER  DATA  FOR  GROWING  SEASON. 


,  lyO 
,  03  0 


225 
175 
027 


,  225 
160 
,  020 


********** 


1 23456739  0 1 23456783  0 1  S 
][ 


SOLAR  ][ 
138. 00 
468. 00 
443. 00 
405. 00 
203. 00 
608. 00 
698. 00 


434. 00 
584. 00 
584. 00 
658. 00 
631. 00 
446.  00 


"I  MAX 
8  0 . 
8  0 . 
8  0 . 
86. 

79. 
77. 
80. 
81. 
76 . 
81. 
7^ . 
74. 
?  0 . 


TMIN 
54 


59  01 2345673901.2; 


0  0 

0  0 
0  0 
0  0 
00 
0  0 


0  0 


11 
,  no 
54.  00 
54.  00 


6  0 . 
59. 
47. 

5'"1 

50 ! 
64. 
65. 
60. 

66. 


mi 
00 
0  0 

o  6 

00 
0  0 
0  0 
0  0 
0  0 
0  0 


RFALL  ][ 


1.5: 


14567 
EVAP 


10 


r-++  +  +  +  *++:****  +  +**  +  ***  +  **+!» 


901 

11 

06 
01 
15 

20 
20 
06 


19 
18 
04 
15 


33456739  0 1 23456783  0 1 2 
DAY  NO  ][     C02  T  1 
119. 00 


4567890 


0  0 


UO 


00 
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jjuuuao 

212. 

on 

69 

0  0 

b4.  00 

.  06 

.  19 

133.  0.0 

Drift  081 

658. 

00 

81 

00 

6  0 .  0  0 

.80 

.  09 

134. 00 

663. 

00 

80 

n  0 

60.  00 

.  19 

135. 00 

n o 0 033 

f.3f:. 

00 

79 

00 

56.  00 

.  02 

.28 

136. 00 

Duuuy4 

647. 

00 

36 

00 

54.  00 

.23 

177. 00 

000085 

547. 

00 

32 

0  0 

60.  00 

.27 

138. 00 

000086 

65b. 

00 

77 

60 

55 .  0  0 

.21 

139. 00 

0  0 0 087 

661. 

00 

78 

00 

53.  00 

.  26 

140. 00 

0  0 0 088 

645. 

00 

87 

66 

56.  00 

.77 

141. 00 

DO 0089 

657 . 

0  0 

00 

56.  00 

.28 

142. go 

000  030 

641. 

00 

31 

06 

61.  00 

.  29 

143. 00 

00  0031 

648. 

00 

30 

66 

65.  00 

.25 

144. 00 

000  032 

635. 

00 

30 

00 

73.  00 

.  30 

145. 00 

000033 

667 . 

00 

88 

00 

61 .  00 

■  C.  f 

146. 00 

000034 

596. 

00 

90 

00 

59.  0  0 

147. 00 

000035 

5,Z|6 

on 

88. 

00 

62.  00 

!25 

143. 00 

DO 0096 

596. 

00 

89 

00 

60.  00 

29 

149. 00 
150.  O  0 

000037 

.795. 

o  o 

90 

60 

61.  00 

.24 

0 00038 

692. 

00 

89, 

00 

59.  00 

.  16 

151. 0  0 

0 0 0 033 

638 . 

00 

81. 

0  0 

57.  00 

32 

152. 00 

|  o  0  i  fl  0 

706. 

86 . 

ii  f  1 

50.  00 

!25 

153. 00 

000101 

707. 

00 

79. 

00 

4fi.  00 

.24 

154. 00 

0  0  0 1  02 

690. 

0  0 

9  0 . 

0  0 

54.  00 

og 

155. 00 

pooiflj 

685. 

0  0 

89 . 

6  6 

55  fill 

.  26 

156. 00 

0001 04 

630. 

0  0 

91 . 

0  0 

54!  66 

.  28 

157. 00 

0001 05 

643. 

00 

91. 

00 

60.  00 

.28 

158. 00 

0  0  0 1  OS 

515. 

0  0 

97. 
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23456 

7890 

000281 

.5  .0 

.  0      .  0 

.  0 

2.5 

.2       .6       .  0       . 0 

5.  0     2.  0 

.5  .6 

.  o 

000232 

6 .8    4 . 0 

2.2  1.0 

cr 

5.6     4.0     2.7  2.0 

6 .0     5 .  0 

4.5 

p  0026-5 

9 .  0    8 .  5 

7.2  6.5 

6=  C 

USER  SUPPLIED  DATA. USER  MUST  FURNISH  THE  FOLLOWING  DATA  TO  SIMULATE  HIS  CROP. 
i234567R9ni234567:::4  01 23456789  01234S6783r.  1  23456783  01  ?34567S4f:l  234567*9  01234567890 
[LATITUDE]  [SEASON  LI  [SOIL  CAP  DC  EMERGE  J[  ROLJSP     IC     LEFADDJC  PN  EPF  ][  POPPL.T  ] 
34  170  1 . by '  125  101.6  1 . 35  1.0        41 0  0  0 . 

[     POM      J[     EFN       jlIHITIALNjE  RESIDN  j 
1 .  0  0 .    0  d  0 .  i"i  3  0 .  0 

THE  FOLLOWING  DATA  IS  USED  BY  THE  PROGRAM  ~!  0  VARY  THE  AMOUNT  OF  OUTPUT 
REQUESTEIL  JJK-FIRST  DAY  PRINTED  OUT. LAST-EQUAL  TO  ZERO  FOR  RUN  WITHOUT 
MANUAL  UPDATING.. JB- INCREMENT  ADDED  TO  JJK  TO  OUTPUT  DATA. 


LJJK][LASTj[  JB  ] 
10         0  10 
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EXAMPLE  RUNS 


The  user  of  SIMCOT  II  must  employ  a  data 
file  as  illustrated  in  this  manual.  Two  examples 
are  given.  In  both  examples  all  the  data  are  the 
same  except  for  the  last  line  of  the  data  file. 

Cotton  Growth  Simulation  Run 

Data  input:  SIMCOT  II  data  file,  with  em- 
phasis on  last  line  as  follows: 

JJK  LAST  JB  «-  Variables 

12345678901234567890    <-  Column  count 
10       0     10  <-  The  data 

To  execute  the  program,  the  user  must  com- 
pile in  FORTRAN,  map,  and  execute  the  abso- 
lute element.  The  data  are  added  to  the  run- 
stream  after  the  execute  command  with  proper 
job  control  language.  Given  below  is  the  output 
of  SIMCOT  II  with  the  above  data  file  as  input 
to  the  program.  Notice  that  the  plant  is  listed 


every  10th  day;  however,  this  can  be  changed  by 
the  user  to  suit  his  needs  by  changing  only  the 
last  data  card. 

The  normal  output  in  this  case  prints  the  plant 
out  in  graphical  form.  The  following  symbols 
indicate  plant  parts:  X,  square;  *,  green  boll;  #, 
open  boll;  0,  abscised  site  or  main-stem  node;  I, 
fruiting-branch  internode;  and  =,  main-stem 
internode. 

Various  parameters  are  also  printed  out.  All 
are  self-explanatory  except  "concentrations" 
and  "NPART  (1-5)."  The  concentrations  are 
the  concentrations  of  nitrogen  by  percent  in  the 
leaves,  seed,  burrs,  stems,  and  roots.  NPART 
(1-5)  is  the  nitrogen  accumulation  by  weight  in 
leaves  (1),  seed  (2),  burr  (3),  stems  (4),  and 
roots  (5) . 


INPUT  DATA 


GTiATA, L 

DATA  0  06- 

000001 

0 0 0 0 02 

000003 

000004 

000005 

000006 

00000? 

000008 

000009 

0  0  0  0 1  0 

o  o  o  o  i  i 

000012 
0  0  0  0 1 3 
000014 
000015 
0  0  0016 
000017 
00001S 
00001? 
000020 
000021 
000022 
000023 
000024 
000025 
0  0  0  026 
000027 
000023 
000025 
00  0030 
000031 
000032 
0  0  0  033 
000034 
000035 
000036 
000037 
000038 
000033 
000040 
000041 
000042 
000043 
000044 
000045 
000046 


CLMIiATA. .. 
RLIB67-10 
.  020 
.  020 
.  020 
.  020 
.  020 
.  020 
.  020 
.  020 
.  020 
.  020 
.  030 
.  030 
.  030 
.  030 
.  030 
.  050 
.  050 
.  050 
.  050 
.  05  0 
.  080 
.  0S0 
.  080 
.  080 
.  080 
.  060 
.  060 
.  060 
.  060 
.  060 
.  080 
.  080 
.  080 
.  080 
.  080 
.  080 
.  080 
.  080 
.  080 
.  080 
.  080 
.  040 
.225 
.  150 
.15  . 


CLMDATA. 
12 ■05-13:26: 31 


.  04  0 

.'  130 
010  . 


■  0 

•— i  n 

.  u  u 

1  H 

■  id  0 

.  U  0 

■  U5 

.  20 

.  20 

.  00 

■  20 

•  lii  U 

.  2  0 

■  0  0 

•  ~z>  U 

.  20 

.  2  0 

.  00 

.  40 

.  2  0 

.20 

.48 

.20 

.  20 

.  0  0 

.  56 

.  2  0 

.  00 

.64 

.  20 

.  20 

.  00 

.72 

.  20 

.  20 

.  0  0 

.  80 

.  6  0 

.  3  0 

.  92 

.  30 

.  30 

.  0  0 

1 '.  04 

.  30 

.  3  0 

.  00 

1.  16 

.  ■£  0 

.  30 

.  0  0 

1 . 28 

.  30 

.30 

.  00 

1.40 

.50 

1.56 

.50 

i .  ,y2 

.50 

.  0  0 

1 . 88 

.50 

.  00 

2.  04 

.50 

.80 

!48 

'.  66 

2!  46 

.80 

.48 

.  00 

2 .  72 

.  8  0 

.48 

.  00 

2 . 98 

.  3  0 

.48 

.  80 

.48 

.  00 

3!  50 

.60 

.40 

.  00 

3.70 

.60 

.40 

.  00 

7, .  4  0 

.  6b 

.40 

.  00 

4.  10 

.60 

.40 

.  0  0 

4.30 

.60 

.40 

.  00 

4.50 

.  ft  f  i 

.  60 

.  0  0 

4.76 

.80 

.60 

.  00 

5.  02 

.  8  0 

.60 

.  00 

5.  2ft 

.  8  0 

.  b  0 

.  00 

5.54 

.  8  0 

.  6  0 

.  00 

s .  ft  0 

.  8  0 

.60 

.  nn 

5.30 

.  8  0 

.  60 

.  00 

5 .  ft  0 

.  8  0 

.  b  0 

■  00 

5.ft0 

.  80 

.  60 

5.80 

.  80 

.  6  0 

.  00 

5.  80 

.80 

.60 

.50 

5.30 

050  .  060 

.070  .100 

.  225 

.225  .225 

120 
009 


.225 
.  i  1  0 

007 


22ci 
,  095 
004 


03  U 


,225 
,  075 
001 


.225 
.  070 


225  .225  .225  .225  .225  .2 
225  .215  .200  . 195  .190  . 1 
060  .050  .040  .  035  .030  .0 


25  .225 
75  . 160 
27  . 020 
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INPUT  DATA 


—Continued 


DO 004 1' 

i87 

000043 

138. 00 

80.  00 

000049 

468. 00 

80.  00 

DOOQ&Q 

44^;.  00 

80.  00 

00  0051 

405. 00 

86 .  0  0 

0  0  0  052 

208. 00 

78.  00 

0  0  0  053 

608. 00 

79.  00 

00  0054 

698. 0  0 

77.  00 

000055 

589. 00 

80.  00 

0 0  0 056 

4k 4. on 

8 1 .  0  0 

000057 

534. 00 

76.  00 

000058 

534. 00 

81.  00 

000059 

658. 00 

76.  00 

000  06  0 

631. 00 

74.00 

000061 

446. 00 

70.  00 

000062 

212. 00 

69.  00 

000063 

658. 00 

31.  00 

p 0 0 064 

663. 00 

SO.  00 

000065 

693. 00 

79.  00 

00  0066 

647. 00 

86.  00 

0  0  0  0b  7 

547. 00 

0  0 0 068 

656. 00 

77.  0  0 

000069 

66 1.00 

78.  00 

000070 

645. 00 

000071 

657. 00 

q?  \  66 

000072 

641 . 00 

9 1 .  o  n 

000073 

648. 00 

90.  00 

0  0 0 074 

635. 00 

90.  00 

000075 

663. 00 

88 .  0  0 

0  0  0  0  76 

596.  0  0 

90.  00 

000077 

596. 00 

83.  00 

000078 

596. 00 

89.  00 

000079 

395. 00 

90.  00 

000080 

692. 00 

89 .  0  0 

go ggsi 

633. 00 

81 .  00 

70S.  00 

86.  00 

100083 

707. 00 

79.  00 

000084 

690. 00 

90.  00 

500085 

685. 00 

89.  00 

30  0086 

630.  0  0 

91.  00 

JO 0087 

643. 00 

91.  00 

515. 00 

97 .  0  0 

JO 0089 

532. 00 

94!  66 

000  090 

396. 00 

93.  00 

300091 

433. 00 

92.  00 

300092 

515. 00 

90.  00 

300093 

623. 00 

90.  00 

J  0  0  094 

4 1  0 .  0  0 

92 .  0  0 

j  0  0  095 

3  01.0  0 

91.  0  0 

300096 

396. 00 

92.  00 

300097 

352. 00 

89.  00 

JO 0098 

656. 00 

90.  00 

300099 

643. 00 

91.  00 

3  0  0 1  0  0 

652. 00 

89.  00 

3001 01 

657. 00 

95.  00 

3001 02 

543. 00 

91.0  0 

3001 03 

326. 00 

92.  00 

300104 

3G1. 00 

90.  00 

300105 

545. 00 

92 .  0  6 

3  0  0 1 06 

241. 00 

89.  00 

300107 

584. 00 

93.  00 

3  0  0 1  OS 

607. 00 

94.  00 

300109 

554. 00 

93.  00 

3001 1 0 

215. 00 

90.  00 

3001 1 1 

370.  00 

94.  00 

300112 

602. 00 

92.  00 

300113 

635. 00 

93.  00 

300114 

260. 00 

93.  00 

300115 

278. 00 

89.  00 

300116 

659. 00 

77.  00 

3001 17 

669. 00 

81 .  00 

300113 

692. 00 

85.  00 

300119 

508. 00 

300120 

6i 1 . 00 

89 '.  6  6 

300121 

551. 00 

88 .  0  0 

300122 

614. 00 

91.  00 

300123 

630.  00 

92 .  0  0 

n  0  0  1 24 

5b8. 00 

85.  00 

000125 

533. 00 

89.  00 

00012b 

4b 1 . 00 

90.  00 

300127 

598. 00 

93.  06 

54.  00 

.  06 

119. 00 

54.  00 

.  01 

120.  0  0 

54.  00 

.  is 

121. 00 

57.  0  0 

.  20 

122. 0  0 

60.  00 

1.53 

.20 

12". on 

59.  on 

69 

.  06 

124. 00 

47. 00 

.25 

125. 00 

52.  00 

22 

126. 00 

5  0 .  0  ij 

.  19 

127. 00 

64.  00 

.10 

.  IS 

128. 00 

65.  00 

.58 

.  04 

129. 00 

6  0 .  0  0 

.  15 

130. 00 

5  3  0  0 

131 . 66 

66.  00 

•"'•0 

132. 00 

64.  00 

.  06 

.'  19 

133. on 

60.  00 

.80 

.  09 

134. 00 

60.  no 

.  is 

135. 66 

5£.  DO 

.  02 

136. 00 

54.  00 

.  2R 

137. 0  0 

6  0.  no 

'.  27 

138. 00 

55. 00 

!  Ii 

139. 00 

5  S  0  f  1 

.  26 

140. 00 

56.  66 

.  33 

141. 00 

56.  00 

142. 00 

61.0  0 

!29 

143. 00 

65.  00 

■-.cr 
■  lL-J 

144. 00 

73.  00 

.  30 

145. 00 

61.  00 

.  27 

146. 00 

59.  00 

147. 00 

62.  00 

'.  25 

143. 60 

60.  60 

.  2'3 

149. 00 

61.  00 

.  24 

150. 00 

59.  00 

.  16 

151 . 00 

57.  00 

TO 

152. 00 

50.  00 

153, on 

46.  00 

.24 

154! 66 

54.  00 

■  c^3 

155. 00 

55.  00 

.  26 

156. 00 

54.  0  0 

.  28 

157. 00 

60.  00 

153. on 

65.  00 

.  26 

159. 00 

65.  00 

.  "2 

lbO. 00 

62.  00 

'  23 

161.0  0 

69.  60 

.  20 

1 62 . 0  0 

65.  00 

.  23 

163. 0  0 

68 .  0  0 

.  04 

22 

164. 00 

68.  00 

27 

165. 00 

69.  00 

.  i"i5 

'.  17 

166. 00 

66.  0  0 

.  13 

.  1 1 

167. 00 

7  0 .  0  0 

.24 

.  11 

168. 0  0 

70.  00 

.  07 

.  09 

169. 00 

71.0  0 

.  23 

170. no 

69.  00 

.  28 

171 . 00 

65.  00 

.73 

172. 00 

63.  0  0 

.34 

.  36 

173. 00 

61.0  0 

.  20 

174. 00 

62.  00 

.23 

.  17 

175. 00 

71.  0  0 

.  10 

176. 00 

68.  00 

.  22 

177. 00 

72.  00 

.91 

.12 

1 78. 00 

73.  00 

.  26 

179. 00 

75.  00 

.36 

180. 00 

70.  00 

.  29 

181 . 00 

63.  00 

1 .  53 

.  08 

132. no 

68,  00 

.  19 

.21 

183. 00 

73.  00 

.  2b 

184. no 

63.  00 

.  1 1 

.  28 

185. 00 

67.  00 

.  26 

!  19 

136. 00 

67.  00 

.  15 

.  1 1 

187. no 

59.  00 

.  25 

188. 00 

57.  HO 

.25 

189. 00 

55.  0  0 

23 

190.  00 

59.  00 

.18 

191. 0  0 

65.  00 

.  19 

192. 00 

63.  00 

193. 00 

66.  00 

.  ^  f 

194. 00 

63.  00 

.61 

■  JUT 

195. 00 

67.  0  0 

.58 

196. 00 

65.  00 

!24 

197. 00 

70.  00 

.  20 

198. 00 

INPUT  DATA-Continued 


0 0 0 1 28 

499. 

00 

88. 

00 

68. 

00 

■  83 

.  29 

199. 

0  0 

0  0 0  i  29 

£27 . 

00 

90. 

0  0 

6f. 

00 

.45 

.  20 

2  0  0 . 

0  0 

0  0  0 1 3  0 

663. 

00 

92. 

0  0 

96. 

on 

.24 

201. 

00 

000131 

6  0 1 . 

00 

89. 

0  0 

68 . 

00 

.35 

202. 

00 

000132 

490. 

00 

91. 

00 

68 . 

0  0 

.  02 

27 

203. 

0  0 

OH 01 33 

671. 

00 

94. 

00 

66. 

6  6 

!l9 

204. 

0  0 

000134 

547. 

00 

95. 

00 

70. 

66 

205. 

0  0 

0  0  0 1 35 

516. 

00 

94. 

00 

68. 

00 

.  02 

~'2 

206. 

0  0 

000136 

551. 

0  0 

95. 

00 

72 . 

00 

"  27 

207. 

0  0 

000137 

604. 

00 

9.7 . 

00 

71. 

00 

.  cL  r 

208. 

0  0 

000138 

582. 

00 

93. 

00 

73. 

0  0 

.  29 

20y . 

00 

0  0  0139 

561 . 

00 

92 . 

00 

73. 

00 

.  05 

28 

210. 

0  0 

0  00140 

240. 

00 

35. 

00 

70. 

00 

.  3fl 

211. 

0  0 

000141 

434. 

00 

84. 

00 

64. 

00 

1.74 

.  12 

00 

0  0 0 1 42 

519. 

00 

89. 

00 

69. 

0  0 

.  68 

.  15 

213! 

0  0 

000143 

609. 

00 

90. 

00 

66. 

00 

.  05 

2l4! 

00 

000144 

492. 

00 

91. 

00 

6k. 

00 

vv 

215. 

00 

00  01 45 

610. 

00 

93. 

00 

68. 

00 

oc 

216. 

00 

0  00146 

623. 

00 

93. 

00 

70. 

00 

.  26 

217. 

0  0 

0  0  0 1 47 

626. 

00 

92. 

0  0 

70. 

00 

.  27 

218. 

0  f  1 

0  0  0 1 48 

646. 

0  0 

92. 

on 

fi9. 

00 

219. 

06 

0001 49 

K^5. 

00 

95! 

60 

74. 

0  0 

■  ^ 

22  0 . 

0  0 

0  m  015  0 

589. 

00 

92 . 

00 

.•'4. 

06 

22  i . 

0  0 

000151 

556. 

00 

95! 

00 

73 . 

00 

!  27 

60 

0  0  0 1 52 

461 . 

00 

93 . 

00 

68 . 

00 

.30 

223" 

0  0 

0  00153 

441. 

00 

96. 

00 

67. 

0  f  1 

.  i9 

224. 

0  0 

000154 

370. 

00 

94. 

0  0 

66. 

00 

60 

0H0155 

756. 

00 

91. 

00 

63. 

00 

.  09 

'.  18 

iiiif-' . 

u  0 

000156 

532. 

00 

93. 

00 

68. 

0  0 

.  15 

227. 

0  0 

000157 

550. 

0  0 

89 ! 

0  0 

68. 

nn 

.  25 

.  24 

228 

0  0 

000158 

480. 

00 

32. 

00 

67. 

00 

229 . 

0  0 

000159 

521. 

00 

93 . 

00 

68. 

nn 

!24 

23  h '. 

06 

000160 

5H4. 

0  0 

92. 

00 

68. 

06 

.  2Fi 

231 . 

0  0 

000161 

566. 

00 

96. 

00 

69. 

00 

.  24 

232 '. 

0  0 

000162 

49y. 

00 

98. 

00 

70. 

06 

.  24 

V"7"7 

n  n 

000163 

412. 

00 

99. 

0  0 

73. 

00 

.  29 

234! 

60 

0001 64 

439. 

00 

97. 

0  0 

77 . 

00 

.  28 

235. 

00 

0  001 65 

509. 

00 

95. 

on 

68. 

00 

\  33 

236 . 

0  0 

000166 

259. 

0  0 

9fi. 

00 

f.f:. 

on 

!'21 

0  0 

000167 

402. 

00 

94. 

0  0 

68. 

00 

.41 

238 . 

00, 

0 0  0 1 68 

319. 

00 

94. 

00 

69. 

f  1  n 

.  05 

.  13 

239 . 

0  0 

00  0169 

586. 

00 

93, 

00 

63. 

00 

■  16, 

24  n! 

00 

0  0017  0 

584. 

00 

89 

00 

61. 

00 

241 . 

on 

000171 

551. 

00 

91. 

0  0 

62. 

00 

'"'5 

242. 

on 

000172 

520. 

00 

92. 

0  0 

61. 

06 

"  22 

243. 

0  0 

000173 

460. 

00 

95! 

00 

63. 

00 

"  23 

244. 

0  0 

0  0  0174 

"7  OCT 

00 

92 . 

nn 

69. 

00 

!  19 

245. 

60 

000175 

478. 

00 

95. 

66 

67. 

00 

.  03 

.  19 

246. 

00 

000176 

435. 

00 

96. 

00 

65. 

00 

.  18 

247. 

00 

000177 

270. 

0  0 

96. 

00 

67. 

00 

.24 

248. 

nn 

000173 

262. 

00 

90. 

00 

7®m 

00 

.  13 

249. 

06 

000179 

514. 

00 

93. 

i\  0 

63 . 

00 

.  12 

2b  0. 

on 

0  0018  0 

472. 

00 

96. 

66 

73. 

00 

.  19 

251. 

0  0 

000181 

C  •">  •% 

00 

98. 

00 

00 

252 . 

00 

000182 

495! 

00 

95. 

00 

73! 

00 

'.24 

■-■£■-7 

00 

0  001 83 

539. 

00 

95 . 

60 

68. 

00* 

.30 

254! 

00 

000134 

4  01 ! 
485. 

00 

9l! 

00 

69. 

00 

.21 

255. 

00 

000185 

00 

96. 

00 

72. 

00 

.  15 

256. 

on 

000186 

514. 

00 

96. 

06 

61. 

00 

.20 

-~.er~? 
dL-Ji  . 

66 

0  6  0 1 87 

530. 

00 

97. 

0  0 
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OUTPUT  DATA 


OXQT  CLMCOT.S 

WEATHER  FOR  COPIAH  COUNTY,  MISS.  ,1972 
CONCENTRATIONS      .0420    .0000    .0000    .0200    .0200    NSTRES=  0 
NPART < 1-5)        .0264      .0001       .0001      .0103  .0004 

DAY     10    CH20  STRESS  0    H20  STRESS       .0      SOLAR  RAD    663.     PLANT  UT  1.17 

SQUARES  LOST  0  BOLLS  LOST  0  LAI  .08  PHYSIOL.  DAYS  6  BLOOMS  LOST  0 
LEAF  UT       .63    MAINSTEM  NODES     0  #  SQUARES       0  #  GREEN  BOLLS     0  #  SITES  0 


CONCENTRATIONS      .0420     .0000     .0000    .0200     .0200    NSTRES=  0 
NPART  <  1  -5  >        .  0473      .  0  0 0 1      .  0  001      .0177      . 0  0  OS 

DAY    20    CH20  STRESS  0    H20  STRESS      .5      SOLAR  RAD    635.     PLANT  UT  2.05 
SQUARES  LOST    0    BOLLS  LOST     0    LAI     .14    PHYSIOL.  DAYS     13    BLOOMS  LOST  0 
LEAF  UT     1.13    MAINSTEM  NODES     0  #  SQUARES       0  #  GREEN  BOLLS     0  #  SITES  0 


CONCENTRATIONS      .0420     .0000     .0000     .0180     .0200    NSTRES=  0 
NPART < 1-5)        .0885      .0001      .0001      .0339  .0042 

DAY    30    CH20  STRESS  0    H20  STRESS     1.0      SOLAR  RAD    690.     PLANT  UT  4.04 
SQUARES  LOST     0    BOLLS  LOST    0    LAI     .26    PHYSIOL.  DAYS    20    BLOOMS  LOST  0 
LEAF  UT    2.11     MAINSTEM  NODES     0  #  SQUARES       0  #  GREEN  BOLLS     0  #  SITES  0 


CONCENTRATIONS      .0420     .0000     .0000     .0176     .0200    NSTRES=  0 
NPART (1-5)        .1597      .0001      .0001      .0690  .0130 

DAY    40    CH20  STRESS  0    H20  STRESS     1.0      SOLAR  RAD    410.     PLANT  UT  7.95 
SQUARES  LOST    0    BOLLS  LOST    0    LAI     .46    PHYSIOL.  DAYS    28    BLOOMS  LOST  0 
LEAF  UT    3.80    MAINSTEM  NODES     0  #  SQUARES       0  #  GREEN  BOLLS     0  #  SITES  0 


CONCENTRATIONS       .0420     .0000     .0000     .0171     .0190    NSTRES=  0 
NPART<l-5>        .2938      .  0001      .  0001      .H99  .0186 

X  X 

I  I 

==0=0=0=0=0=0=0=0=0= 

I 

X 

DAY    50    CH20  STRESS  0    H20  STRESS      .0      SOLAR  RAD    301.     PLANT  UT  14.04 
SQUARES  LOST     0    BOLLS  LOST     0    LAI     .85    PHYSIOL.   DAYS    37    BLOOMS  LOST  0 
LEAF  UT    6.99    MAINSTEM  NODES    9  #  SQUARES      4  #  GREEN  BOLLS     0  #  SITES  4 

X 
I 

==0=0=0= 


VEGETATIVE  BRANCH  GROUING  FROM  NODE    6    OF  THE  MAIN  STEM 


CONCENTRATIONS      .0393     .0000     .0000     .0147     .0117    NSTRES=  0 
NPARTU-5)         .4864      .0001       .0001       .1737  .0122 

X  X 
I  I 

X      X      X  X 
I      I      I  I 
==0=0=0=0=0=0=0=0=0=0=0=0=0= 

I     I  I 

X      X  X 

I  I 

X  X 

DAY    60    CH20  STRESS  0    H20  STRESS      .5      SOLAR  RAD    260.     PLANT  UT  22.15 
SQUARES  LOST     0    BOLLS  LOST     0    LAI  1.49    PHYSIOL.   DAYS    47    BLOOMS  LOST  0 
LEAF  UT  12.23    MAINSTEM  NODES  13  #  SQUARES     16  #  GREEN  BOLLS     0  #  SITES  16 

XXX 
I      I  I 
==0=0=0=0=0=0=0= 

I  I 

X  X 


VEGETATIVE  BRANCH  GROUING  FROM  NODE    6    OF  THE  MAIN  STEM 
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OUTPUT  DATA-Continued 


CONCENTRATIONS  .0318  .0000  .0000  .Oil 4  .009?  HSTRES=  i 
NPARTa-5)         .€752      .  0001       .  0001       .2364       .  0119 
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DRY    70    CH20  STRESS  0    H20  STRESS      .5      SOLAR  RAD    568.     PLANT  WT  37.72 
SQUARES  LOST     0     BOLLS  LOST     0     LhI  2.58     PHYSIOL.   DAYS     55     BLOOMS  LOST  0 
LEAF  UT  21.20     MAINSTEM  NODES  16  #  SQUARES    29  #  GREEN  BOLLS     0  #  SITES  30 
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X      X      X  X 

I     I     I  I 

=0=0=0=0=0=0=0=0=0=0= 

I     I     I  I 


VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 
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DAY    SO    CH20  STRESS  2    H20  STRESS        5      SOLAR  RAD    547.     PLANT  UT  54.69 
SQUARES  LOST    0    BOLLS  LOST    0    LAI  3.49    PHYSIOL.  DAYS    65    BLOOMS  LOST  0 
LEAF  UT  28.74    MAINSTEM  NODES  20  #  SQUARES    44  #  GREEN  BOLLS    4  #  SITES  52 
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VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 


CONCENTRATIONS  .0210  .0781  .0061  .0063  .0079  NSTRES=  2 
NPARTC1-5)        .6925      .0781      .0080      .2792  .0106 
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OUTPUT  DATA-Continued 
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DAY    90    CH20  STRESS  3    H20  STRESS      .0      SOLAR  RAD    492.     PLANT  UT  67.50 
SQUARES  LOST     0    BOLLS  LOST     0    LAI  4. 00    PHYSIOL.   DAYS    75    BLOOMS  LOST  0 
LEAF  LIT  32.93    MAINSTEM  NODES  20  #  SQUARES    19  #  GREEN  BOLLS  15  ft  SITES  52 
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X 

VEGETATIVE  BRANCH  GROWING  FROM  NODE     6     OF  THE  MAIN  STEM 


CONCENTRATIONS  .0186  .1137  .0037  .0051  .0075  NSTRES=4 
NPARTC1-5)        .6812      .1137      .0110      .2696  .0105 
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DAY  100    CH20  STRESS  2    H20  STRESS      .5      SOLAR  RAD    370.     PLANT  UT  74.70 
SQUARES  LOST    0    BOLLS  LOST    0    LAI  4.44    PHYSIOL.  DAYS    84    BLOOMS  LOST  0 
LEAF  UT  36.54    MAINSTEM  NODES  20  #  SQUARES       0  #  GREEN  BOLLS  15  #  SITES  52 
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OUTPUT  DATA-Continued 

CONCENTRATIONS  .0175  .1053  .0017  .0043  .0070  NSTRES=  4 
NPARTQ-5)        .6851      .1053      .0093      .2694  .0105 
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DAY  110    CH20  STRESS  1     H20  STRESS    2.2      SOLAR  RAD    439.     PLANT  UIT  83.58 
SQUARES  LOST     0    BOLLS  LOST     0    LAI  4.75    PHYSIOL.  DAYS    94    BLOOMS  LOST  0 
LEAF  UIT  39.07    MAINSTEM  NODES  20  #  SQUARES      0  #  GREEN  BOLLS    7  #  SITES  52 
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0 

VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 


CONCENTRATIONS  .0167  .1195  .0015  .0  037  .0067  NSTRES=  4 
NPART(l-5>        .6896      .1195      .0113'     .2663  .0108 
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I 

0 

DAY  120    CH20  STRESS  2    H20  STRESS      .5      SOLAR  RAD    385.     PLANT  WT  91.90 
SQUARES  LOST     0    BOLLS  LOST     0    LAI  5.01     PHYSIOL.  DAYS  103    BLOOMS  LOST  0 
LEAF  UT  41.20    MAINSTEM  NODES  20  ft  SQUARES      0  ft  GREEN  BOLLS    7  #  SITES  52 


0 
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0  0  0 

1  I  I 

*      0      0      U      0  0 

I     I     I     I     I  I 
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I     I     I     I     I  I 

*      u      0      0      0  iJ 

I  I 

0  0 


VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 
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OUTPUT  DATA-Continued 


CONCENTRATIONS  .0165  .1344  .0016  .0032  .0063  NSTRES=  3 
NPARTC1-5)         .6923      .1344      .0133       .2643       .01 08 

0  0 

1  I 

0      0  0 
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I  I  I  I  I 
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# 

+ 

o 

0 

0      0  0 

I 

I 

I 

I 

I 

o 

0 

0 

0 

0 

I 

I 

I 

0 

0 

0 

I 

0 

DAY  130    CH20  STRESS  1     H20  STRESS      .5      SOLAR  RAD    4  01.     PLANT  WT  96.72 
SQUARES  LOST     0    BOLLS  LOST    0    LAI  5. 12    PHYSIOL.  DAYS  112    BLOOMS  LOST  0 
LEAF  WT  42. OS    MAINSTEM  NODES  20  #  SQUARES      0  #  GREEN  BOLLS    5  #  SITES  52 


0 
I 

0  0  0 

1  I  I 

*      0      0      0      0  0 

I     I     I     I     I  I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I     I     I     I     I  I 

+      0      0      0      0  0 

I  I 

0  0 

I 

0 

VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 


CONCENTRATIONS  .0177  .1374  .0017  .0028  .0059  NSTRES=  1 
NPART(l-5)        .6943      .1374      .0140      .2730  .0105 


0  0 

i  i 

0  n 

o 

i  i 

I 

#  0 

0 

0 

0 

i  i 

I 

I 

I 

#  # 

0 

o 

0      0  0 

i  i 

I 

I 

I     I  I 

0=0=0= 

0=0=0- 

=0= 

0=0=0=0=0=0=0= 

I 

I 

I 

I 

I 

I 

I 

# 

# 

0 

o 

0 

0 

0 

I 

I 

I 

I 

I 

0 

o 

o 

0 

0 

I 

I 

I 

0 

0 

0 

I 

o 

DAY  140    CH20  STRESS  0    H20  STRESS      .0      SOLAR  RAD    399.     PLANT  LIT  98.82 
SQUARES  LOST     0    BOLLS  LOST     0    LAI  4.77    PHYSIOL.   DAYS  121     BLOOMS  LOST  0 
LEAF  WT  39.21    MAINSTEM  NODES  20  #  SQUARES      0  #  GREEN  BOLLS    0  #  SITES  52 


0 

I 

0 

0 

0 

I 

I 

I 

# 

0 

o 

0 

0 

0 

I 

I 

I 

I 

I 

I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I     I     I     I     I  I 

tt      0       0      0      0  0 

I  I 

0  0 

I 

o 
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OUTPUT  DATA-Continued 


CONCENTRATIONS  .0199  .1374  .0019  .0021  .0052  NSTRES=  0 
NPARTQ-5)        .7034      .1374      .0155      .2238  .0095 


o 

o 

I 

I 

0 

0 
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I 

I 

I 

it 

0 

0 

0 

0 

I 

I 

I 

I 

I 

# 

# 

0 

0 

0      0      0  X 
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I 

I 

I 

I     I     I  I 

0= 

=  0  =  0  = 

=0= 

-0= 

=0= 

:Q= 

=0=0=0=0=0=0=0= 

I 

I 

I 

I 

I     I  I 

# 

ft 

0 

0 

0      0  0 

I 

I 

I 

I 

I 

0 

o 

0 

o 

0 

I 

I 

I 

n 

o 

o 

I 

0 

DAY  150    CH20  STRESS  0    H20  STRESS      .0      SOLAR  RAD    523.     PLANT  UT  93.29 
SQUARES  LOST    0    BOLLS  LOST    0    LAI  4.29    PHYSIOL.  DAYS  130    BLOOMS  LOST  0 
LEAF  UT  35.28    MAINSTEfl  NODES  21  #  SQUARES      1  #  GREEN  BOLLS     0  #  SITES  53 


0 

I 

0 

0 

o 

I 

I 

i 

# 

0 

0 

0 

0 

0 

I 

I 

I 

I 

I 

I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I     I     I     I     I  I 

#      0      0      0      0  0 

I  I 

0  0 

I 

0 

VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 

CONCENTRATIONS  .0193  .1374  .0020  .0018  .0048  NSTRES=1 
NPART  < 1  -5  >        . 72  04      . 1 374      .0161       . 2  092      . 0  091 


0 

n 

I 

i 

o 

o 

0 

I 

i 

I 

# 

0 

o 

0 

o 

I 

i 

i 

1 

I 

# 

# 

0 

0 

0      0      0      X  X 

I 

i 

i 

I 

I     I     I     I  I 

'0=0 

=0= 

0=0=0 

=0=0= 

:0=0=0=0=0=0=0=0=0= 

I 

I  I 

I 

I     I     I  I 

##  0      0      0      0      0  X 

I    I  I    I  I 

0  0  0      0  0 

1  i  i 

0      0  0 

I 

0 

DAY  160    CH20  STRESS  0  H20  STRESS      .0      SOLAR  RAD    432.     PLANT  UIT  94.87 
SQUARES  LOST     0     BOLLS  LOST     0    LAI  4.54     PHYSIOL.  DAYS  136    BLOOMS  LOST  0 
LEAF  LOT  37.31    MAINSTEM  NODES  23  #  SQUARES      3  #  GREEN  BOLLS    0  #  SITES  55 


0 

I 

0 

0 

0 

I 

I 

I 

# 

0 

0 

0 

0 

I 

I 

I 

I 

I 

0 

_  I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I     I     I     I     I  I 

#      0      0      0      0  0 

I  I 

0  0 

I 

0 
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OUTPUT  DATA-Continued 


HPARTa-5) 


IQ 

.  0196 

1  77 

4 
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0  014 

.  0049 

74  09 

■ 

017  0 
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T 
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X 

X 
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I 

I 

I 

I 

I 

I 

# 

# 

0 

0 

0 

o 

0 

y 

X  X 

I 
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I 

I 

I 

I 

I 

I 

I  I 

NSTRE3=  0 


==n=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o=o= 

I 

X 


DAY  170 


I 

I 

I 

I 

I 

I 

I 

I 

# 

# 

o 

o 

0 

o 

o 

y 

I 

I 

I 

I 

I 

I 

i 

o 
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0 

0 

X 

I 

I 

I 

I 

0 

o 

0 

x 

I 

I 

o 

y 

SQUARES 

LOST 

o 

LEAF  UT 

37.  SO 

0 

I 

0 

0 

o 

I 

I 

I 

# 

0 

0 

I 

I 

I 

CH2G  STRESS  0 
BOLLS 


STRESS 


u 


SOLAR  RAD    271.     PLANT  LIT  94.04 
PHYSIOL.   DAYS  142     BLOOMS  LOST  0 
MAINSTEM  NODES  25  #  SQUARES     14  #  GREEN  BOLLS     0  #  SITES  66 


H20 
LOST 


0     LAI  4.60 


==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 


VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 


YIELD/ ACRE  1.679    EMERGENCE  DATE  125.     GROUUHGDAYS  172  LATITUDE 
#  OF  GREEN  BOLLS    0    #  OF  OPEN  BOLLS    7    SOIL  H20  CAPACITY  1.69 
H20  RUN  OFF    .48    ROU  SPACING    101.6    #  OF  PLANTS/hURE  41000. 


34.  0 


(3BRKPT  PRINT* 


Insect  Damage  Experiment 

The  second  way  in  which  SIMCOT  II  can  be 
used  is  to  directly  simulate  insect  damage  by  re- 
moval (changing  the  fruiting  code)  of  appropri- 
ate fruit.  Again  the  same  data  file  is  used  with 
the  exception  of  the  last  card.  This  program  fea- 
ture was  designed  to  be  used  on  an  on-line  inter- 
active basis  with  a  demand  or  time-share  term- 
inal but  can  be  used  also  with  card  input  in  the 
batch  mode. 

INPUT  DATA 

SIMCOT  II  data  file,  with  emphasis  on  the 
last  card  as  follows: 

JJB  LAST  JB  «-  Variables 

12345678901234567890    -  Column  count 
75       1       0  *-  The  data 

In  this  example,  we  will  simulate  bollworm 


damage  in  which  two  squares  and  three  bolls  are 
damaged  by  bollworms. 

Step  1. — Execute  program  and  add  data  file. 
Step  2. — Program  stops  on  the  75th  day  and 
asks  how  many  fruit  are  abscised  on  day  75. 
Input:    12345  <-  Column  count 
1  «-  Data 

Which  fruit? 
Input:    123456789012345  «-  Column  count 
10       2       4  «-  Data 

The  fruit  at  the  tenth  main-stem  node  and  first 
fruiting-branch  node  is  assigned  a  4,  which  is 
the  code  for  a  scar.  The  reason  a  2  is  used  to  indi- 
cate the  first  fruiting-branch  node  is  that  the  1 
fruiting-branch  node  is  where  the  fruiting 
branch  is  attached  to  the  main  stem.  The  fruit 
code  is  as  follows:  1  is  a  square,  2  is  a  green  boll, 
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3  is  a  mature  boll,  and  4  is  a  scar.  On  a  printout 
these  codes  appear  as  X,  *,  #,  and  0,  respectively. 

Next  the  program  asks  if  any  fruit  on  the 
vegetative  branch  will  be  abscised. 

Input:    12345  <-  Column  count 

0  «-  Data 

Do  you  want  the  plant  printed  out  in  graphic 
form  ? 

Input:    12345  <-  Column  count 

1  <-  Data  (for  "no") 
0  «-  Data  (for  "yes") 

Are  there  any  more  data  after  today?  (Are 
you  manually  going  to  abscise  any  more  fruit  ?) 
Input:     12345  <-  Column  count 

0  «-  Data  (program  proceeds 

normally) 

1  «-  Data  (program  will  ask 

for  more  abscission 
data) 

What  is  the  next  output  day  (day  on  which 
more  damage  will  be  inflicted  or  is  of  special  in- 
terest to  user)  ? 

Input:       JJB  «-  Variable 

12345  «-  Column  count 
80  «-  Data 

Step  3. — Abscise  square  on  day  80  on  the  vege- 
tative branch  with  the  following  set  of  cards: 
12345678901234567890 

0  «-  No  abscission  on 

main  stem 

1  *-  Number  abscised 

on  vegetative 
branch 

5       2       4  <-  Location  on 

vegetative 
branch  and  fruit 
code 

0  «-  Print  plant 

1  «-  More  data 

85  '*-  Next  output  day 


Step  h. — Abscise  boll  on  main  stem  on  day  85 
with  the  following  set  of  cards: 

12345678901234567890 
1 

9       2  4 
0 
0 
1 
90 

Step  5. — Abscise  boll  on  main  stem  on  day  90 
with  the  following  set  of  cards: 

12345678901234567890 
1 

8       2  4 
0 
0 
1 
95 

Step  6. — Abscise  boll  on  the  main  stem  on  day 
95  with  the  following  set  of  cards: 
12345678901234567890 
1 

7       2  4 

0 

0 

1 

165 

Step  7. — Print  out  plants  on  desired  day  (in 
this  case  on  day  105  near  the  end  of  the  season) . 
12345678901234567890 
0 
0 
0 
0 

The  program  with  the  data  file  as  above  and 
the  data  outlined  in  the  above  example  will  grow 
a  cotton  plant  which  will  lose  two  squares  and 
three  bolls  due  to  insect  damage.  The  program 
output  with  the  mentioned  data  now  follows. 
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OUTPUT  DATA 

@XQT  CLMCOT.S 

WEATHER  FOR  COPIAH  COUNTY, MISS.   ,  1972 
CONCENTRATIONS      .0298    .0006     .0216    .0103    .0078    NSTRES=  1 
NPART ( 1 -5  >        . 7525      . 0  0  06      . 0 002      .2781      .  01 06 
HOW  MANY  FRUIT  ON  MAIN  BRANCH  WILL  BE  ABSCISED  OH  DAY  75? 
1 

WHICH  FRUIT  ON  MAIN    BRANCH  WILL  BE  ABSCISED  ON  DAY  75? 
10        2  4 

HOW  MANY  FRUIT  ON  VEG.   BRANCH  WILL  BE  ABSCISED  ON  DAY      75  ? 
0 

DO  YOU  WANT  PLANT     PRINTED  OUT  ON  DAY  75? 
0 

IS  THERE  ANY  MORE  DATA  AFTER  DAY  75? 
1 


X 

I 

X  X 

X 

I  I 

I 

y  v 

ft  r\ 

u 

X  X 

I  I 

I 

I  I 

*  X 

X 

X  X 

I  I 

I 

I  I 

0=0=0=0 

=0=0 

=0=0=0' 

i 

=0=0= 

i     i     i     i     i  i 

X      X      X      X      X  X 

I     I     I  I 

X      X      X  X 

I  I 

X  X 

DAY    75    CH20  STRESS  1     H20  STRESS      .0      SOLAR  RAD    627.     PLANT  UT  46.32 
SQUARES  LOST     0    BOLLS  LOST    0    LAI  3.07    PHYSIOL.  DAYS    60    BLOOMS  LOST  0 
LEAF  WT  25.22    MAINSTEM  NODES  18  #  SQUARES    38  #  GREEN  BOLLS    1  #  SITES  42 

6 
I 

X  X 

I  I 

X      X      X      X  X 

I     I     I     I  I 

==0=0=0=0=0=0=0=0=0=0=0=0= 

I     I     I     I  I 

X      X      X      X  X 

I  I 

0  0 

VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 

THIS  IS  DAY      75  WHAT  IS  THE  NEXT  OUTPUT  DAY? 

80 

CONCtNTRATIONS      .0262    .0078    .0072    .0082    .0077    NSTRES=  2 
NPART<l-5>        .7524       .0078       .0009      .2792  .0106 
HOW  MANY  FRUIT  ON  MAIN  BRANCH  WILL  BE  -ABSCISED  ON  DAY  80? 
0 

HOW  MANY  FRUIT  ON  VEG.   BRANCH  WILL  BE  ABSCISED  ON  DAY      80  ? 
1 

WHICH  FRUIT  ON  VEG.  BRANCH  WILL  BE  ABSCISED  ON  DAY  30? 
5        2  4 

DO  YOU  WANT  PLANT    PRINTED  OUT  ON  DAY  80? 
0 

IS  THERE  ANY  MORE  DATA  AFTER  DAY  80? 
1 

X  X 
I  I 


I 

I 

i 

y 

X 

X 

r\ 

I 

* 

I 

* 

i 

I 

I 

y 

I 

I 

I 

I 

I 

X  X 

I  I 

0=0=0 

=0 

=0= 

o 

=0= 

o 

=0= 

O 

=0=0= 

0=0=0=0= 

I 

I 

n 

i 

I 

I 

I  I 

* 

I 

I 

i 

n 

i 

I 

X  X 

X      X  X 

I    I  I 

y      v  y 

i 

y 


DAY    80    CH20  STRESS  2    H20  STRESS      .5      SOLAR  RAD    547.     PLANT  UT  54.75 
SQUARES  LOST     0     BOLLS  LOST     0     LAI  3.50    PHYSIOL.   DAYS    65     BLOOMS  LOST  0 
LEAF  WT  28.76    MAINSTEM  NODES  20  #.  SQUARES    43  #  GREEN  BOLL'"    4  #  SITES  52 
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OUTPUT  DATA-Continued 


U 

i 

X 

X 

0 

i 

I 

I 

* 

X 

X 

X 

X 

X 

i 

I 

I 

I 

I 

I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I     I     I     I     I  I 

X      X      X      X      X  X 

I  I 

0  0 

I 

VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 


THIS  IS  DAY      80         WHAT  IS  THE  NEXT  OUTPUT  DAY? 
85 

CONCENTRATIONS      .0234     .0304     .0063    .0069     .007?    NSTRES-  2 
NPARTC1-5)        .7361       .0304      .0032      .2792  .0106 
HOU  MANY  FRUIT  OH  MAIN  BRANCH  WILL  BE  ABSCISED  ON  DAY  85? 
1 

UHICH  FRUIT  ON  MAIN    BRANCH  WILL  BE  ABSCISED  ON  DAY  85? 
9       2  4 

HOU  MANY  FRUIT  OH  VEG.  BRANCH  WILL  BE  ABSCISED  ON  DAY      85  ? 
0 

DO  YOU  WANT  PLANT    PRINTED  OUT  ON  DAY  85? 
0 

IS  THERE  ANY  MORE  DATA  AFTER  DAY  85? 
1 

X  X 
I  I 


X 

X 

I 

# 

I 

X 

I 

0 

X 

X 

I 

I 

I 

I 

I 

* 

* 

* 

X 

X 

X 

X 

I 

I 

I 

I 

I 

I 

I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 


I 

I 

i 

I 

I 

I 

I 

* 

0 

x 

n 

V 

x 

I 

I 

i 

I 

I 

* 

x 

x 

x 

I 

i' 

I 

0      X  X 

I 

DAY  85  CH20  STRESS  2  H20  STRESS  .5  SOLAR  RAD  561.  PLANT  WT  62. 
SQUARES  LOST  2  BOLLS  LOST  0  LAI  3.32  PHYSIOL.  DAYS  70  BLOOMS  LOST 
LEAF  WT  31.44     MAINSTEM  NODES  20  #  SQUARES     33  #  GREEN  BOLLS     3  #  SITES 


0 

I 

0 

X 

0 

I 

I 

I 

* 

0 

X 

X 

X 

X 

I 

I 

I 

I 

I 

I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I     I     I     I     I  I 

*      X      0      X      X  X 

I  I 

0  0 

I 

x 
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THIS  IS  DAY      85  WHAT  IS  THE  NEXT  OUTPUT  DAY? 

90 

CONCENTRATIONS       .0213     .0659     .0062     .0062     .0078    NSTRES=  2 
NPART(l-5>        .7076      .0659      .0068      .2777  .0104 
HOU  MANY  FRUIT  ON  MAIN  BRANCH  WILL  BE  ABSCISED  ON  DAY  90? 
1 

UHICH  FRUIT  ON  MAIN    BRANCH  WILL  BE  ABSCISED  ON  DAY  90? 
8       2  4 

HOU  MANY  FRUIT  ON  VEG.   BRANCH  WILL  BE  ABSCISED  ON  DAY      90  ? 
0 

DO  YOU  WANT  PLANT    PRINTED  OUT  ON  DAY  90? 
0 

IS  THERE  ANY  MORE  DATA  AFTER  DAY  90? 
1 

X  X 
I  I 


* 

0 

X 

I 

I 

I 

* 

* 

0 

0 

X 

I 

I 

I 

I 

I 

* 

0 

* 

* 

0 

OUTPUT  DATA-Continued 

I      I      I      I      I      I  I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I    I    I    I    I    I  I 

*  0      0      0      0      X  X 

I     I     I     I  I 

*  *      0      X  X 

I     I  I 

0      X  X 

I 

X  # 
DAY    90    CH20  STRESS  2    H20  STRESS      .0      SOLAR  RAD    492.     PLANT  LIT  €7.95 
SQUARES  LOST     0    BOLLS  LOST     0    LAI  4.04    PHYSIOL.  DAYS    75    BLOOMS  LOST 
LEAF  WT  33.25    MAIHSTEM  NODES  20  #  SQUARES    19  #  GREEN  BOLLS  12  #  SITES  5, 


0 
I 

0  X  0 

1  I  I 

*      0      *      0      X  X 

I    I    I    I    I  I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0= 

I     I     I     I     I  I 

*      0      0      0      X  X 

I  I 

0  0 

I 

x 

VEGETATIVE  BRANCH  GROWING  FROM  NODE    6    OF  THE  MAIN  STEM 


THIS  IS  DAY      90  WHAT  IS  THE  NEXT  OUTPUT  DAY? 

CONCENTRATIONS      .0196     .0896    .0049    .0056     .0076    NSTRES=  4 
NPARTCl-5>         .6S83       .0896       .0091       .2779  .0104 
HOW  MANY  FRUIT  OH  MAIN  BRANCH  WILL  BE  ABSCISED  ON  DAY  95? 
1 

WHICH  FRUIT  ON  MAIN     BRANCH  WILL  BE  ABSCISED  ON  DAY  95? 
7        2  4 

HOW  MANY  FRUIT  OH  VEG.  BRANCH  WILL  BE  ABSCISED  ON  DAY      95  ? 
0 

DO  YOU  WANT  PLANT    PRINTED  OUT  ON  DAY  95? 

0 

IS  THERE  ANY  MORE  DATA  AFTER  DAY  95? 
1 

0  X 

1  I 


* 

0 

0 

I 

I 

I 

* 

* 

0 

0 

0 

I 

I 

I 

I 

I 

* 

0 

+ 

* 

o 

0 

0 

I 

I 

I 

I 

I 

I 

I 

==0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0-0=0=0=0= 


I 

I 

i 

i 

I 

I 

o 

o 

o 

0 

0 

x 

I 

i 

i 

I 

+ 

0 

o 

o 

I 

i 

0 

o 

I 

0 

DAY    95    CH20  STRESS  1    H20  STRESS    2.0      SOLAR  RAD    635.     PLANT  WT  72.22 
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VEGETATIVE  BRANCH  GROWING  FROM  NODE     6     OF  THE  MAIN  STEM 


YIELD/ACRE  1.272    EMERGENCE  DATE  125.     GROWINGDAYS  172    LATITUDE  34.0 
#  OF  GREEN  BOLLS     0    #  OF  OPEN  BOLLS    5    SOIL  H20  CAPACITY  1.69 
H20  RUN  OFF     .48    ROW  SPACING     101.6    #  OF  PLANTS -'ACRE  41000. 
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PART  5.-HARVSIM:  A  SIMULATION  OF 
COTTON  HARVESTING  AND  GINNING 

By  James  W.  Jones,1  Rex  F.  Colwick,2  D.  F.  Wanjura,:;  and  Elmer  B.  Hudspeth1 

DESCRIPTION 


HARVSIM  simulates  harvesting,  transport- 
ing, storing,  and  ginning  of  cotton  from  a  farm 
in  a  gin  community.  See  figure  5-1.  The  focus  is 
on  a  particular  farm  where  field  sizes,  cotton 
maturity  rates  for  each  field,  and  yield  of  each 
field  are  descriptions  of  the  crop.  The  harvest- 
ing and  hauling  system  is  specified  by  the  num- 
ber, capacity,  and  speed  of  harvesters  and  the 
number  and  capacity  of  trailers  available  to  the 
farmer.  The  rest  of  the  cotton  input  to  the  gin 
from  other  farms  is  simulated  by  random  lumped 
harvesting  rates  derived  from  past  gin  records. 
The  ginning  rate  is  specified,  and  an  option  ex- 
ists for  altering  the  gin  schedule.  Breakdowns  of 
harvesters  and  the  gin  are  simulated,  and  idle 
harvester  time  due  to  trailer  shortages  is  con- 
sidered. A  trailer  hauler  takes  one  or  two  trail- 
ers to  and  from  the  gin. 

The  operator  specifies  the  date  when  harvest- 
ing is  to  start  by  selecting  the  percentage  of  the 
crop  open  when  harvesting  is  to  start.  Rainfall 
is  an  input  to  the  model,  and  depending  on  the 
amount  of  rainfall,  harvesting  is  stopped  for  0, 
L  2,  3,  or  4  days  with  certain  probabilities.  Daily 
trailer  arrivals  from  the  entire  gin  community 
are  calculated  and  include  arrivals  from  the  farm 


0.1  hour.  Harvesting  is  simulated  for  each  harv- 
ester, each  harvester  having  been  assigned  to  a 
field,  and  a  trailer  is  assigned  to  each  harvester 
for  filling.  Harvester  breakdown  and  repair 
times  are  simulated.  Harvesting  continues  until 
all  fields  are  harvested  once  unless  a  trailer 
shortage  prevents  the  harvester  from  unloading. 
Farm  management  determines  whether  to  harv- 
est each  field  twice  and  specifies  a  value  (in 
bales  per  acre  remaining  in  the  field)  below 
which  the  field  will  not  be  harvested  a  second 
time. 

A  hauler  transports  one  or  two  full  trailers  to 
the  gin  and  returns  trailers  to  the  farm.  When 
trailers  from  the  farm  arrive  at  the  gin,  they 
are  placed  in  a  first-come,  first-served  queue.  A 
daily  operating  schedule  for  the  gin  is  selected, 
based  on  gin  backlog.  Breakdowns  and  repair 
times  for  gin  equipment  are  simulated.  An  eco- 
nomic analysis  calculates  costs  for  harvesting, 
transporting,  and  ginning. 

HARVSIM  was  validated  with  1-year  data 
from  the  Texas  High  Plains.  The  simulated  and 
observed  harvesting  rates  and  trailer  require- 
ments compared  well  for  the  two  farms  that 


under  study.  The  system  status  is  updated  every      were  monitored. 

LIMITATIONS 


HARVSIM  was  intended  for  comparing  cur- 
rent methods  of  handling  seed  cotton  with  alter- 
nate methods  that  include  seed-cotton  storage 
prior  to  ginning.  The  model  depicts  the  current 
trailer  method  and  focuses  on  an  individual 
farm,  but  with  estimates  of  harvested  cotton 

1  Agricultural  engineer,  Southern  Region,  Agricul- 
tural Research  Service,  U.S.  Department  of  Agriculture, 
P.O.  Box  5465,  Mississippi  State,  Miss.  39762. 

2  Research  leader,  Cotton  Production  Research,  South- 
ern Region,  Agricultural  Research  Service,  U.S.  Depart- 
ment of  Agriculture,  P.O.  Box  5465,  Mississippi  State, 
Miss.  39762. 


from  the  rest  of  the  gin  community.  A  second 
model  was  developed  (HARSTOR)  to  simulate 
storage  of  seed  cotton  on  all  farms  in  a  gin  com- 
munity and  will  be  reported  later. 

HARVSIM  is  limited  to  studying  individual 
farm  harvesting  decisions  and  the  effects  of 
these  decisions  on  costs,  harvester  idle  time, 


3  Agricultural  engineer,  Southern  Region,  Agricul- 
tural Research  Service,  U.S.  Department  of  Agriculture, 
Lubbock,  Tex.  79401. 

1  Location  leader,  Southern  Region,  Agricultural  Re- 
search Service,  U.S.  Department  of  Agriculture,  Lub- 
bock, Tex. 79401. 
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labor  requirements,  etc.  Farm  decisions  through- 
out a  gin  community  can  also  be  studied,  but  the 
lumped  gin  input  will  have  to  be  altered  to  reflect 
that  change.  For  example,  one  could  study  the 
effect  of  a  constant  number  of  trailers  owned  by 
the  gin  and  used  on  a  first-come,  first-served 
basis  by  changing  the  community  harvesting 
rates  to  reflect  that  process. 

The  economic  analysis  for  the  gin  is  based  to- 
tally on  High  Plains  gin  data  developed  at  Texas 


Technological  University,  Lubbock.5  A  more  de- 
tailed economic  analysis  of  gin  costs  is  needed  to 
make  the  model  general.  The  harvesting-hauling 
economic  analysis  is  based  on  American  Society 
of  Agricultural  Engineers  cost  figures. 

3  Sandle,  W.  D.,  Smith,  M.  L.,  and  Fowler,  Mark.  1970. 
An  industrial  engineering  study  of  the  operations 
through  which  cotton  passes  between  the  farm  and  the 
mill.  Final  report  on  a  Cotton  Production  Institute  Proj- 
ect 68-114.  284  pp.  Texas  Technological  University,  Lub- 
bock. 
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FIGURE  5-1  .-Simplified  flow  chart  for  HARVSIM. 
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DEFINITION  OF  TERMS 


ACDELT 
ACS(K) 
ACST 
AJDT 

AR 

ARPH 
BGND 
BH 

BKLG 

BLLS 

CCOT 

CDEP 

CFLBR 

CGIN 

CGLBR 

CHARN 

CHAUL 

CHL 

CINS 

CINT 

CLBR 

CLOSF 

CLUB 

COTT(K) 

COTTT 

CTAX 

CTLS 

CTR 

DGIN 

DLAY 

EFF 
ENQ 

ENT(JK) 
FLDFLG(K) 


FOX 

GAMT 

GCPB 

GDT 
GINAR 

GOP 

GRTE 
GTO 

HAMT(J) 

HARC 

HARTOL 

HPH 
IARFLG 


Acres  harvested  in  one  time  increment.  ICNT 
Number  of  acres  in  field  K  (K  =  l-50). 
Total  acres  on  farm.  IDAL 
Amount  harvested  in  one  time  incre-  IDAY 

ment.  IDL(J) 
Bales  arriving  at  gin  today  from  rest 

of  gin  community.  IDT 
Arrival  rate  in  bales  per  hour. 

Total  bales  ginned.  IFIELD(K) 
Probability  of  harvester  breaking  down 

within  a  time  increment.  IFK 
Bales  in  gin  yard  not  yet  ginned.  IFLAG(K) 
Total  bales  harvested  from  this  farm. 
Cost  per  pound  of  lint. 
Depreciation  cost,  harvester. 
Cost  of  farm  labor  for  year. 

Total  gin  cost  per  year.  IGFLG 

Cost  of  gin  labor  for  unloading  system.  IGSTRT 

Total  harvesting  cost  per  year. 

Total  yearly  cost  for  hauling. 

Cost  per  mile  to  operate  pickup  hauler.  IGT 

Insurance  cost,  harvester. 

Interest  cost,  harvester.  IHARV(J) 
Cost  per  hour  for  labor. 

Percentage  of  cotton  loss  30  days  after  IHEND 

boll  opening.  IHLR 
Lubrication  cost  per  year,  harvester. 
Amount  of  cotton  remaining  in  field  K. 
Total  seed  cotton  on  farm.  IHSTRT 
Cost  of  taxes  per  year  (harvester). 
Cost  per  trailer  per  year. 

Total  trailer  cost,  all  trailers.  ILAST 
Daily  gin  volume.. 

Number  of  days  harvesting  delayed  due 

to  rain.  IMID 

Efficiency  of  harvester. 

Time  when  hauler  is  to  arrive  at  gin. 

Time  trailer  JK  arrives  at  gin.  INOTIM 

Harvest  status  for  field  K  (0  =  not  yet  IQN(JL) 
harvested;   1  =  harvested  once;   2=  IQUIT 
harvested  twice) . 

Percentage  of  gin  volume  arriving  to-  IRAIN 
day,  excluding  farm  in  question. 

Amount  ginned  during  one  time  incre- 
ment. IRDA 

Ginning  cost  per  bale,  from  study  cited  IRTRN 
in  footnote  5.  ISH(JFK) 

Repair  time  for  gin. 

Midseason  daily  average  gin  arrival  rate 

if  user  wants  to  specify  this.  ISTART 

Time  gin  starts  running  after  break- 
down. ISTRT 

Ginning  capacity  in  bales  per  hour. 

Gin  turnout  in  percent.  ITACS 

Pounds  of  seed  cotton  in  harvester  J.  JFK 

Purchase  price  for  harvester.  JFLAG(J) 

Tolerance  for  simulating  when  the  harv- 
ester dumps  the  cotton. 

Hours  of  harvester  operation.  KTT.IZ 

Flag  for  reading  in  gin  arrival  rate 

parameters  or  simulating   (l  =  read  LBH 
in,  0  =  simulate).  LIFE 


Counts  empty  trailers  in  gin  yard  be- 
longing to  this  farm. 
Days  from  first  open  cotton. 
Day  number. 

Total  idle  time  due  to  trailer  shortages 
for  harvester  J. 

Time  counter  during  day;  each  incre- 
ment is  10  minutes. 

Harvester  number  assigned  to  field  K 
for  harvesting. 

Field  DO  loop  counter. 

Trailer  status  flag:  0  =  waiting  to  be 
filled,  1  =  being  loaded,  2  =  trailer  full, 
3  =  in  transit  to  gin,  4  =  in  gin  queue, 
5  =  empty  at  gin,  and  6  =  trailer  on 
way  home. 

Gin  operating  flag. 

Flag  for  reading  (IGSTRT  =  0)  or  cal- 
culating gin  and  harvest  starting 
dates  (IGSTRT  =  1). 

Number  of  time  increments  the  gin  op- 
erates today,  at  10  minutes  each. 

Field  number  assigned  to  harvester  J 
for  harvesting  (a  pointer). 

Time  of  day  to  stop  harvest. 

Trailer  hauler  status:  0  =  on  farm,  1  = 
on  way  to  gin,  2  =  at  the  gin,  3  =  on 
way  to  farm. 

Time  of  day  for  starting  harvest  (0  = 
6:00  a.m.,  10  =  7:00,  etc;  daily  time 
increment  =  0.1  hour). 

Number  of  days  required  for  season  to 
"tail  off"  after  arrivals  start  slowing 
down  at  end  of  season. 

Average  number  of  days  for  arrivals 
occurring  at  the  midseason  rate,  total 
gin  community. 

Number  of  current  harvest,  1  or  2. 

Time  that  trailer  JL  is  ginned. 

Number  of  harvesters  completed  harv- 
esting for  the  year. 

Flag  for  reading  rain  (IRAIN  =  1)  or 
simulating  it  (IRAIN  =  0).  (It  must 
be  equal  to  1  in  this  program.) 

Julian  days  of  rainfall  input. 

Time  that  hauler  returns  to  farm. 

Time  when  harvester  starts  harvesting 
after  a  breakdown  (current  time  plus 
repair  time) . 

Day  when  harvest  is  resumed  after  a 
rain. 

Number  of  days  required  for  gin  arrival 

rate  to  reach  midseason  average. 
Total  acres  harvested  to  date. 
Harvester  counter. 

Harvester  status  flag:  0  =  harvester  can 
dump  load  into  harvester  and  l  =  idle 
harvester. 

Number  of  trailers  hauler  pulls  to  gin 
this  time,  1  or  2. 

Pounds  of  seed  cotton  per  bale. 

Years  for  depreciating  harvester. 
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MASTRT  First  day  of  open  cotton.  SAVCOT 

MATRTE  (K,I)  Percent  of  cotton  open  on  dayl  (1  =  1-50 

days  after  MASTRT  for  field  K  (K=  SGRT 

1-50).  SMALY 
NA                   Number  of  days  gin  arrivals  is  increas- 
ing in  trend  ( =ISTRT  if  read  in) . 

NB  Number  of  days  before  gin  receipts  show  SV 

decline  at  end  of  season  (  =  IMID  if  SYA 

read  in) .  TACRE 

NC  End  of  gin  season  (=ILAST  if  read  in).  TACS(K) 

NDAY  Number  of  days  charged  for  ginning. 

NFLD  Number  of  fields  on  the  farm,  ranked  TAMI(K) 

in  order  of  earliness.  TCAP 

XGLBR  Number  of  gin  laborers  used  for  unload-  TCN 

ing  system.  TCPB 

NHAUL  Number  of  trips  (total)  made  to  gin.  TENQ 

XHVS  Number  of  harvesters  on  the  farm. 

NOFTIM  Number  of  harvests  per  field,  1  or  2.  TIDT 

NRAIN  Number  of  days  of  rainfall  to  read.  TNBLS 

NSGN  (K)         Harvester  number  assigned  to  trailer  K.  TQO 

NTH  Total  number  of  days  harvesting,  includ-  TRD 

ing  rain  days.  TTRIP 
NTLS               Number  of  trailers  on  the  farm. 

XYR  Number  of  years  to  be  simulated.  VEL 

PSTART  Percentage  of  bolls  open  for  starting 

harvest.  VOL 

QO  Theoretical  acres  per  hour.  XMI 

R  Rainfall  on  day  in  question.  XO 

RFIX(IRDA)    Rainfall  amounts  on  day  IRDA. 

RL(K)  Row  length  in  field  K  (K  =  l-50).  X,  RNX 

RO  Probability  of  gin  breakdown  during  YA(K) 

one  time  increment.  YAK 

RT(I)  Time  trailer  I  is  scheduled  to  return  to  YLO 

farm.  YLOS 


Temporary  variable  to  store  amount  of 

cotton  remaining  in  each  field. 
Variation  about  ginning  rate. 
Lowest  yield  such  that  if  a  field  has  less 

than  SMALY  bales  per  acre  in  it,  then 

it  will  not  be  harvested. 
Salvage  value  of  harvester. 
Standard  deviation  of  YAK. 
Actual  time  required  per  acre. 
Total  acres  in  field  K  harvested  during 

current  harvest. 
Amount  of  seed  cotton  in  trailer  K. 
Trailer  capacity. 
Total  cotton  harvested  to  date. 
Total  cost  per  bale  harvested  on  farm. 
Total  time  elapsed  wrhen  hauler  arrives 

at  gin. 
Total  time  increments. 
Total  arrivals  at  gin  in  bales. 
Theoretical  time  per  acre. 
Time  to  drive  to  or  from  gin. 
Time  required  for  a  harvester  round 

trip  in  field. 
Average  harvesting  velocity  in  miles  per 

hour. 

Gin  community  volume  in  bales. 
Miles  to  the  gin. 

Amount   held   by   each   harvester  in 

pounds. 
Random  numbers. 

Yield  per  acre  in  field  K  ( K  =  1-50) . 
(Dummy)  yield  that  has  opened. 
Loss  of  cotton  from  a  field. 
Total  lost  cotton,  accumulated. 


Input 


INPUT/OUTPUT 

Card  25: 


Card  1:  Col. 


1- 

-5 

NYR  (Integer) 

6- 

-10 

NHVS  (Integer) 

11- 

-15 

NTLS  (Integer) 

16- 

-20 

NFLD  (Integer) 

21- 

-25 

NOFTIM  (Integer) 

26- 

-35 

XMI(F10.2) 

36- 

-45 

GTO(F10.2) 

46-55 

CLBR(F10.2) 

56- 

-65 

GRTE(F10.2) 

66- 

-75 

SMALY  (F10.2) 

If  NFLD  is  6: 

Cards  2  through  7;  1  card  for  each  field. 
Col.     1-10    ACS(K)  (F10.2) 
11-20    YA(K)  (F10.2) 
21-30    RL(K)  (F10.2) 
Card  8:     Col.  1-5      MASTRT  (Integer) 

6-15    PSTART  (F10.2) 
Card  9  through  24:  MATRE(K.I)  arranged  in 
F4.2  format  starting  with  field  1;  50  values 
are  read  in  for  maturity  values  for  each  field 
K. 


Col. 

1- 

-10 

CTLS 

(F10.2) 

11- 

-20 

CHL 

(F10.2) 

21- 

-30 

VOL 

(F10.2) 

31- 

-40 

HARC 

(F10.2) 

41- 

-50 

SV 

(F10.2) 

51- 

-55 

LIFE 

(Integer) 

Col. 

1- 

-10 

TCAP 

(F10.2) 

11- 

-20 

CCOT 

(F10.2) 

21- 

-30 

VEL 

(F10.2) 

31- 

-40 

GINAR 

(F10.2) 

41- 

-45 

ISTRT 

(F5.0) 

51- 

-55 

ILAST 

(F5.0) 

56- 

-60 

IARFLG 

(Integer) 

Col. 

1- 

-5 

IRAIN 

(Integer) 

6- 

-10 

NRAIN 

( Integer) 

Card  27: 


Card  28:    As  many  cards  as  needed,  only  if 
rain  is  read  in. 

Col.    1-5     IRDA  (day  of  rain. 
Integer) 
6-10    RFIN(IRDA)  (F5.2) 
Repeat  as  needed  on  same  card 
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and  on  following  cards  if 
needed. 

Card  29:    Col.    1-10    CLOSF  (F10.3) 

11-15    IHSTRT  (Integer) 

16-20    IHEND  (Integer) 

21-30    HARCAP  (F10.3) 

Card  30:    Col.    1-5      IGSTRT  (Integer) 

6-10    NSG  (Integer) 

11-15    NGLBR  (Integer) 

Output 

1.  Number  of  harvesters,  trailers,  and  dis- 
tance to  the  gin  are  printed  out. 

2.  For  each  field,  the  number  of  acres,  yield, 
and  row  length  are  printed. 

3.  The  total  cotton  to  harvest,  gin  starting 
date,  and  harvesting  starting  date. 


4.  Daily  gin  summary  including  the  number 
of  arrivals,  bales  ginned,  backlog,  and  hours  of 
operation. 

5.  Breakdowns  are  printed  when  they  occur 
(gin  and  harvester) . 

6.  Every  time  a  harvester  or  trailer  changes 
status,  the  change  is  printed  out,  for  example, 
when  a  harvester  is  filled  and  dumped  into  a 
trailer,  when  a  trailer  returns  to  the  farm,  and 
when  a  trailer  is  ginned  are  outputs. 

7.  A  daily  summary  is  printed  for  harvest- 
ing and  ginning. 

8.  At  the  end  of  the  season,  the  trailer  utili- 
zation is  printed  for  each  trailer.  The  number 
of  bales  harvested,  hours  of  harvester  operation, 
and  costs  per  bale  are  printed  out. 


PROGRAM  SETUP  AND  EXECUTION 


HARVSIM  is  programed  in  FORTRAN  for  a 
UNIVAC  1106  or  IBM  370  computer.  The  card 
reader  input  unit  is  1  and  the  line  printer  output 
unit  is  3. 

The  card  deck  is  arranged  in  the  following  se- 
quence for  a  UNIVAC  run: 

A.  Control  cards 

1.  @RUN 

2.  @ASG 

3.  @FOR 

B.  Main  program  deck 

C.  @FORcard  (in  front  of  each  subroutine) 

—  Subroutine  (s)  — 

D.  @MAP  card 

IN  card 


E.  @XQT  card 

— data — 

F.  @FIN  card 

The  @RUN  card  specifies  account  number, 
name  of  run,  and  the  project  qualifier.  The 
@ASG  card  assigns  space  on  disk  for  storing 
the  program  for  future  use.  The  @FOR  cards 
cause  the  main  program  and  subroutines  to  be 
compiled  with  the  FORTRAN  compiler.  The 
@MAP  card  creates  an  absolute  element  in  ma- 
chine language  with  all  subroutines  linked  to- 
gether for  the  run  and  for  future  runs  if  desir- 
able. The  @XQT  card  causes  program  execution, 
and  @FIN  signals  the  end  of  the  program. 
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PROGRAM  LISTING 


i 

nil 

1  14u 

1  1  IcL 

76U 

76x 

■^01 
92  7 


haRVESTING-MAMDLING  SlMul  AT  T  ON 

')l.AL   IULC+)  »HAMT((+)  ,FMT(30)  »TAMT(30)  »RT  (  30 )  » TfT  (  30 )  ,  Tj  ( )  » RCTM  ( UOO 
) » ISTRT* lMlDr I  LAST 
niN,FN5I0h  Xd) 
INTEGER  TILT 

I uTEbER  FLD^LG ( 50  ) rTFlElO(50)»IHARVU) 
TuTEGER   lFLA6(30)»I^N(3n)»I5H(«+)  »NSGN( 3n  )  »  JFLAo  (  u  ) 
oi MENS I ON  ACS (50)  »  Y  M  50  )  .  RL  (  50  )  ,  COTT(50)  ,TACS(50) 
ncAL*4  MATkTE(50»S0) 

^hTA  IDL/1+*n./»HAMT/4*0.  /'ENT/ 3^*0./ »TA»-'T/30*n./,  RT/ ^0*0. /,Tr/^n*n 
./ »TT/30*U./ 

^mTA  TI0T/0/» JFLAG/U*0/» lFLAG/3n*0/»ION/30*0/»PFTN/Uon*n.O/» 
I6H       /U*0/»NSGM         /30*0/ » FLUFLG/5n*0/ 

DATA   IhARV/4*0/» lFirLD/sn*0/»  TAC5/5n*0 . 0/ »  C0TT/SO*0.0/ 

1*71   RATNFALL  DATA  TOR  LUBBOCK»  TEXAS 

MbHIFT=? 

TnE  FOLLOWING  STATEMENTS   INITIALIZE  VARIABLES 
M.«=l 

omTA  NHAuL/n/» IHLR/n/# IRTRN/O/ 

DmTA   IbD/0/»BGMD/0./»TNHLS/0./»PKLG/0./»GOP/n./» TSTART/n/ 
olAO   IN  VARIABLES  For   ThTS  SIMULATION 
'ifR  =  NUMRER  OF   YEARS  TO  RF  SIMULATED 
N1LS=NU"BlK  OF  TRAILERS  HE  OWNS 
MHVS=MUVBfcK  OF  HARVESTERS  FARMER  OWNS 

ACS(K)    -  NO.    ACR^S   In  FIELD  K .. 

Ya(k).-  AVERAGE  y I ELO  PER   ACRE   IN  FlFLD  K 
(ADJUSTED  WHEN  HARVEST  OCCUPS) 

RL(K)    -  ROW  LENGTH   In  F I  ELD  K. 

COTT(K)    -  AMOUNT  OF  COTTON  RFMAIMING  EACH  FTFLD 
*HI=AVERAGL  DIST.   T^  GIN 
GIO=GlN  TURNOUT 
rLBR=LAnO«   COST  PER  HOUR 
ckTE=GIM  CAPACITY  PrR   HOUR >  RATED 
CUuT=C0ST  P^P   LB.    or   LinT  LOST 

NOFTTM  -  NO.    OF  T I  ML  c,  TO  HAP  VEST ,    1    OR  2. 

INOTTM  -  CURRENT   HARVEST*    1   =  F I RsT »    2  -  SFOOMD  TlMp 

NFLD  -  NO.    OF  F I rLDS  ON  THE  rAR M . 

MAST"T  -  STARTING  DAY  NO.    FO"  READ   I"  MATUDTTY  CUrVFS. 

MATURITY  RATE  t    PERCENT  OF  FINAL  YlF|_n  oPF"' 
For   FIFLD  I. 

WE   WTLL   HARVEST,  >=0.0 
PAIN   OR   SIMULATING  IT, 
AD  Im 
TO  TAD  IN. 

J. 


MATRTF  t  I  »  K  J  - 

ON  HAY   K . 
SMALY   -  SMALLEST   Y I  LI  n  THAT 
IKAIM  -  FLAG  FOR  READTNG  IN 

0   =  SIMULATED         1   =  R 
:.|KA1N  -  MO.    OF  RAINFALL  nAY_ 
IhAKV(J)    -  FIELD  NO.    ASSIGNEn  TO  HARVFSTER 
FlDFLGU)    -  HARVEST   c;TATUS   F OR  FlFLD 

0  =  rjOT   YET  HArvfSTED     1   =  HAP  Vf"STFD   1  TTMf 

2  -  HAR VESTrr)  2  TIN"FS 
TACb(K)    -  TOTAL    1CRLS  COMPLETED  H AR VFsT I NG »   FTFlo  K 

FOk   THIS   PAr'TlLUl  AR  HARVEST. 
IuUIT  -  NO.    OF  HARVESTERS  RET  I REo  FQP  THE  SrASON 


RtAD  ( 1 
roKMAT 
^cAD ( 1 
FORMAT 
ocAD  I  1 
^uRMAT 

>||M=1 

x  u )  =o 

3lAj ( 1 
FuKMmT 
P.-AD  (  1 
Ri_ AD  (  1 
r>cAu  (  1 
Foh  -1AT 
Tl-  (  IK  A 
FORMAT 
I«UTT= 
ruRViAT 
PuK  -1AT 


1  )  wYR»NHVS»"TLS.HFLO#NOPTIM#XMI#GTO»CLnP»GRTF»SwALY 
SI5»5F10.2) 

1  Hi)  (ACS(K)  » YA(k)  »RL(K)  »K=1  •  NFLD) 
3F1U.2) 

114u)  mastrt»pstapt 

T5'h 10.2) 

6241° 

lllt)((MATRT!-(I»K)»K  =  l»50)»I  =  l  rNFLD) 
?0H<4.2) 

SOU    CTLS#CHl  *  VOL»HARC»SV»LIFF 

Q?7)    TCAP,  CC"T»  VFL'GINARr  IST^T » I**ID»  ILAFTr  I APFLG 

760)  lPAlN»Nf7AlN 

?Ib) 

M.Lo.D    REAU(l»7h1)(IRDAfRFlM(IRnA)fI  =  1^!PAlM) 
«(Ib»F5.2)  ) 

SF10.2' 15, Fin. 2) 
UFllj.?»3F5.0,  15) 
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PROGRAM  LISTING-Continued 

rnOTlM=t 
Ta=783^7 

TLAP=(TCAP*'+79./GT0)  *lun. 

c       fallowing  stmt •  accounts  for  extractop  cotton 

Ot\TE=GKTF  +  oRTE*  ( 5.8^33* (  r,TO-2l  . 3 )  /I no •  ) 

C 

c 

Y  1-0  =  0  •  0 
YuOS=0. 
Wi\ITE<3»6lO) 

fvlu  FoRMAT  (  '  1  •  »  10X  »  '  HARVEST-GIN     FOP  N.T.    STATF  FX  A  MPLF  '  ) 
'.<KlTE(3»6l4) 

f^l*  FORMAT  (  •  0-*  »**X»  '  NO.HAPV.      NO.  TPA  TLFPS       Tn?AlLFP  CAP. 

1     DIST.TO  o  IN' ) 

'.-KITE  (3»  611)  f'HVS»NTLS»TCAP»XMI 
fell  FORMAT  (  •0,»?lX'l3»aXrl3iciX»F7.1>8X»F5.1>/) 

WKITE ( 3» 1 109) 

1109  format! ' o' >?x. •fiel'v » isx» • acres' » i^x> • yield' » 1  ox »  »pow  lfngth» > 

mkITE (3» 1113) ( IFK » Ars( IFK ) , YA ( IFK) »»L ( IFK) » IFK=1 »NFL0> 
1113  FuRMATC    » » T5»7X,F1^.2»SX»F15.2»3X»F1B.?) 
C  q  I  ART   A   NEW  YEAR 

T  I  R  =  0 

■3uA0(  1  »759)    CLOSF »  IHSTRT »  IHEND»HARCAP 
759  FoRMAT(Fl0.3»2I5»Fln.3) 
C  CLOSF  =  COTTON  LOSS  FACTOR 

C  IHSTRT  =  BEGIN  HARVEST    (0    IS  6!0n  A.m.) 

C  IHEND  =  STOP  HARVEST. 

InOu  T1R=IYR+1 
C  ToN   IS  TolAL  COTTON  HAK V   THIS  YEAR 

c       tiacs  is  total  acre^  harv  this  year 

ToN  =  0  . 

c       «;i_lect  computes  the  gin  starting  datf»  and  thf  h ARvrsT  starttmg  nAY 

dlADI 1 »75l )  IGSTRT»MSG»MSH»NGLBR 

751  format (tib) 

AoST=0 
CuTTT=0 
T I ACS=0 

do  iim  ifk=i»nflo 

foT  T I IFK )  =  ( ACS< IFK ) *YA ( T^K ) *100 ,0/Gtq) *U79. 0 
A*-ST  =  ACST  +  ACS(  IFK) 
lilt*  CuTTT  =  COTTT+COTT(IF") 

Ih ( IGSTPT.LO. 1 )    GO  TO  7sn 

CmLL  SELECT (NSG»NSH»X» Ix » PSTART » MASTRT § MATRTF J 
75(1  wraTc.l3»6U)MSG»NSH»roTTT 

6o  format ( •  *»'gin  starting  day  is»  »m»//r  »hharv.  starting  hay  tsi, 

1 1 *+»//»  •  TJ01  AL  COTTO'i  To  HARVEST   IS •» FlO .1 » •POUNDS* » //) 

C 

c 
c 

C  ASSIGNS  waRVESTE^S   To  FIELDS  INITIALLY 

C  IFIELD(K)    -  HAR VrSTEw   NO.    AS^IGNFD  To  F I ELD  K. 

1117  J=1»NHVS 
Il-IELD(  J)=J 
1117  TnAPv(J)=J 

C 

C  IuAY=DAY  NO. 

n,u  Q99  TDAY=NSG»388 

TohL=Iu AY-MA ST RT+1 

IM IUAL.GT .50)  IDAL=50 

C  IuAL  -  NO.    OF  DAYS  SINCE  SEEO  COTTON  STARTFr 

C  OPENlNGp    MAX.    OF  50. 

C 

C  CuTTOrg  L/FTER I  OR  AT  I  ON  FACTOR  »  CLOSF 

C 

Th  (  IuAY.LT.vASTRT  +  3ri)    GO  TO  1115 
luA0=IDfl Y- ( WASTRT+30 ) +1 
TMIjA^.gT.SO)  IDAQ=^.n 
Do   111b  IFK=1»NFLD 
SAVCOT=CoTT ( IFK) 

CoTT(IFK)=COTT(lFK)*(l.fl-(CLOSF*MATRTE(IFKfrDAo)  )  *  (  f  A Q  f  tFk  )  -T ATS  ( 
lTfK)  )/ACsUrK)  )  ) 
Y,_G  =  SAvC0T-C0TT(  IFK) 
It-  (YLO.LT-U.O)  YLO=0.0 

Ym( IFK)=YA(IFK)*(1 . D-CLOSF*MATRTE( IFKrlOAG) ) 

1110  Yi-OS  =  Yi_OS+YLO 
WKITE(3» 10778)  YLOS 

1077d  FuRMATT'    '»'YLOS=  ',F1o.">) 
111b  CoNTINUF 


PROGRAM  LISTING-Continued 

IDT  =  0 

C 

C  nuLAYH   IS  FOR   SIMULATING  RAIN  AND  Dr[_AYSIN  HARV.   DlJP  To  PAl*i 

C  I^TAKT   IS  STARTING  DAY  FOR  HARVEST  AFTER  RAINFALL 

r ALL  DELA YH ( X ' NN  >  R  » I  DAY r I  ST ART , TRAIN , RFIN) 

C 

C  TnlS  SUBROUTINE  CALCULATES  ARRIVALS  FOR  THE  HAY   AMD  DFTfpM I Mp-S 

C  WHETHER  GIN   IS  RUNNING 

C  Ak=BALES  ARRIVED  AT  GIN  TODAY 

C  Tv3FLG  =  U   MEANS  GIN   IS  OPfRATINGJ    IGFLG  =  1   MEANS  RAINEO  Oijt 

C  IF   I  START   .OT.    IDAYrlAR.GT.    0   AND  NO.   GIN  ARRIVALS  FOR  DAY 

NuAY=ID« Y-NSG-< IDAY-NSG) /7 

TMR=ISTART-IDAY 

CmLL   ARR (R»X,NN»  AR»MDAY» TGFLG »  VOL  > I  AR »  GINAP  t TSTRT , IMT D , TL AST . T ARFL 

lGi 

II-  (  IUAY/7*7-lDAY.EQ.O)  AR  =  0 
C  It"   THERF   lb  A  DELAY   IN  HARV.   DUE  TO  R  A I M »    GO  TO  GINNING 

C  *****************************************************  ********* 

C  FOLLOWING   IS  GIN  MANAGEMENT  SCHEDULE  BASED  ON  BACKLOG • 

C 

IuT=llO 

ti-  (BKLG.GT.  10  0.  AND.NSHIFT.EQ.2)  TGT=?30 
II- (BKLG.GT.100.  )    GRTF  =  lf,.8 
TI-  ( IDAY  .GL.NSG  +  56)  TGT=110 
It ( IDAY.Gt.NSG+56)  GRTE=16.8 

C 

C  *  *  *  *  *  ********** 

nolN=0 . 

C  TuT   IS  TIML  COUNTER   DURING  DAY 

2u  TuT=IDT+l 
C  TiDT=TOTAL  MO.    OF  TT^E  INCREMENTS 

TiDT=TIDT+l 

Th ( IDAY.LT.NSH.OR. inAY.LF. ISTART)    Go  TO  6 
Th (IDAY/7*7-IDAY.EQ,0)    GO  TO  6 
C  HARVEST   BETWEEN   THSTRT  AND   IHEND*    0  =  f>:00  A.M. 

TI"  (  IDT.LE.  IHSTRT.OR.  IDT.GT.  IHEND)    GO  TO  6 

C 

II- (IGUIT.tG.NHVS)   GO  To  1123 
U2i+  r  uNT  I NUF 

C 

C  CHECK   FOR  HARVESTERS  COMPLETING   A  FlFLD 

C 

-)vj   1119  jFK  =  lrNHVS 
TU=IHARV ( JFK ) 

IK (IriARV(JFK) .EO.0)    GO  TO  1126 

Il-(TACS(IU  ).LT.ACS(IU  ))    GO  TO   1  1 1  ^ 

IHELDCIU  )=" 
clUFLGIIu  )=i 

Tl- (  IN0TIM.LQ.2)    FLDFLGlTU  )=? 
TmCS(IU  )=0.n 

WKITt(3» 1130)    IHARV(JFK) »IDAY»FLDFLG(IU  )»COTT(T'l 

Ym(Iu  )=CQTT(IU  )/(ACSdU  )  )*GTn/t*7Q00.n 

WKITE(3»7111)    YAYlu  ) 
7111     ruR^ATt'    '  »  '  Y A  «»F10.5) 

ItiARV  (  JFK  ) -0 
1126  ruNTINUE 
C 

C  SELECT  NEW  FIELD  FOR  HARVESTER  JFk 

C 

no  1120  IFk=1»NFLD 

Tr ( IFIELD< 1FK) .GT.O)    GO  TO  1120 

II-  IYA(IFk)  .LT.SMALY)    GO  to  1120 

If (MATRTe(IFk»IDAL) .LT.n. 99. AND.INOTIM.rQ,?)    GO  TO   1  l?n 
Th  (FLDFLGUFK)  .EQ.  INOTIM-I)    GO  TO   1 1  21 
1120  !~uNTINUF 

II-  (  InOTIM.lO.2)  IHA^V(JFK)=0 
Tl- ( IN0TIM.L0.2)    GO  TO  1119 
II-  (NOFT  IM.LQ.  1  )  IHAUV(JFK)=0 
Tl-  (NOFTIM.LO.D    GO  TO  1119 
T I ACS=0.0 
tnOT I M— ? 
Gu  TO  1124 
1121    tmARV( JFk)=IFK 
t(-IFLD(IFK)=JFK 

C 

C  SELECTED  NEW  FIEl  D    ( I FK )    FOR  HARVESTFR  (JFK) 

C 


90 


PROGRAM  LISTING-Continued 

Tl-  ( IUAL.Gn.50)    GO  To  H&1 

IKMATRTE(IFK»  IDAL)  .GE.n.9999)    GO  To  llftl 
Do   1160  lUAl=IDAL»5n 

mhTRTE(  IFK#  IDA1)  =  (MATRTF  ( IFK»  IDAl)  -wiATRTE(  IFK  »  IDAL )  )  /  ( 1 . 0-MAT"TF (  T 
lFis » IDAL) ) 
WKITE(3»7112)    MATRTE(IFK»IDA1) »IDA1 
7112     FORMAT ( '    • » • M AT      »»ri0.s»»      IDA1  '»I10J 
1160  CONTINUE 
1161  CoNTINUF 

OPENING  RATE   IS  ADJUSTED  TO  REMAINING  COTTOM 
C  IN  THE  FIELD*    AFTER  FIELD   IS  HARVESTED   1  TT^E. 

C 

c 

1119  ruNTlNUF 
v  TuUIT=0 

no   1122  JHK=1»NHVS 
1122     R ( IHARV( JFK ) .EQ.O )  IQUTT=IQUIT+1 
IF ( TQUIT.co.NFLD)    Go  TO  1123 
Gu  TO  t 

ll3u  puRMAtV  ♦  0  '  » 1  OX  »  '  COMPLETFO  HARVESTING  FIELD  NO.»  r  I5»5X»  »<">N  D^y'.T^' 
15A»'THIS  FIELD  HAS  ^EEN  HARVESTER *» T2 » IX »♦ TIME •»/ r '  »  r  »  PFM A  T  M  T  NG  C 
?6 1-TON   IS   • rFlO.O) 

C 

c 

C  CHECK   IF  ALL  TRAILERS  ARF  GINNED   IF  ALL  COTTON   IS  HArVFSTED 

no  5  1  =  1 » NTLS 

Ih (TAMT(I) .GT.50.O)    GO  TO  8018 


CONTINUE 
Gu  TO  7 
CONTINUE 


NoH= I  DAY 

no  632  IC=1»NTLS 

It-  (  I  FLAG  ( IC)  .EQ.0.OP.  IFLAG(  IC)  ,EQ .  5 .  OR  .  I FL  AG  ( I C)  . EQ • 6 ) Tr ( I C ) = 
lTt_(IC)+n.l 
63*;  Tl  (  IC)=TT(  IO+0.1 
C  HARVESTING  CALCULATIONS 

C  FOR  EACH  HARVESTER  t    HARVEST  DURTNG  AT 

Dw  8  J=1»NHVS 

TF ( IHARV( J) .EQ»0)    Gn  TO  8 

II-  (TIDT.LT.  ISH(  J)  )GO  To  8 
C  RkEAK  Dnwr«i  OCCURS  EVERY     8  HOURS  ON  AVERAGE  AND  REQUIRFS  l.9  HnH»S 

C  FOR  REPAIR  ON  AVERAGE 

Rii=l.-EXP(-n. 1/8.0) 

XU)=X(1  )  *6192.*163K4. 

cmLL  R ANDUTx  t NN ) 

RuX  =  Xd) 

IF  (RNX.GT.bH)    GO  TO  I0b1 
SUH=0. 

DO   1062  IR=1»U 
XU)=X(l)*ai92.*16384. 
CALL  R ANDU ( X  »  NN ) 
infiii  SuH=SUH  +  XU) 
rnX=X(1) 

DIH=l2.*ALOG( 1 . -RNX ) 

Wr\ITE  (3»  1063)    J»  IDT»  IDAY  »  DTH  .  „  w 

ln6j  FORMAT!'    •» 'HARVESTER   NO .  •  »  14  '  •  PREAKS  DOWN  t    TI^E' »  I<* ,  •  OP  DAv»nU» 
16A»»REPAIR  TIME   IS» »F6. 1 » • TIME   I NCRPMENTS ' ) 
IbH( J)=TIUT+ABS(DTH) 

in6i  Continue 

C         | oHzPOUMDS  OF  SEED  COTTn"  PER  BALE 
LoH=(17Q./oTO) *10n 
lo=IHARV{ J) 

ymK- Y  A ( I U  )*MATRTE(TU  » IDAL ) 

SY A=YAK/6»U 

CmLL     GAUSS(X»NN,SYA» Yak , VYA) 
IF  (  VYA.  GT.  1.25)  VEL  =  r>. -1.^3*  (VYA-1.2<^) 
Ou=  VEL*h«67  /8.?5 
C  oo=ACRES  PlR  HOUR»T'-iEORFTlCAL 

C  T««0  =  THEORLrTCAL  TlMr  PER   ACRE  _  r 

c       if  all-  cotton  has  b^fn  harv,  check  on  trailer  status 

C  Xo  =  AMT  HELU  BY  EA.   1-<ARV.  LBS. 

TuO  =  l . /oo 

A=8910.89/ l?.*VEL) 
R=163.«+/(2.*RL(IU  J/1200.) 
Xo=ubH*HARCAP 
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r-90 . *LnH*V YA/XO 

ir  (  HjT.Fq. un  )    WRlTE(3»lf)10)    A  '  B  »  C  »  ErF 
lnli)  FwR"AT('    •  r3F8.1  r6X»F8.^,6X»  'A»P»C»rFF») 

n  I  =6U0  .  0*  (  Y  A  (  IU  )  *MATRTE  I  III  »IDAL)/TCAP) 

FhF=A/( (6./^. > * < A+B+C+DT)) 

TmCRE=TO0/LPF 
C  AoUELT   IS  ACRE5  HARv   IN  HELTA  T 

\LDELT= ( 1 ./TACRE) *0  . 1 

RlRIP=(PLUU  )/6534.)*2. 
C  TRAILERS  Aun  A  HAULFR   ARE  READY  *    HAUL  To  GIN. 

T|HIP=TACRL*RTRIP 

C  II-   AT  THE  START  OF  THIS  TIME  PERIOD,    A  maRV.    IF  FULL,    TT   Is  aSfI'WE 

C  TO  BE  IDLE 

ni  1  =  1+79.0/  I  ^T0*1  30  On.O) 

HARTOL=PH*YA(IU  )*RL(IU  )*2.0*MATRTF(  TU  » lDftl  ' 

ti- (HARTOL.bT.500)    H  AR TOi  =50 0  . 

Ir (HAMT( J) .GT.XO-HApTOL)   GO  TO  10 
C  AlDr=A,v|T.    iM  HARVESTER   DURING  DFLTA-T 

AiDr=(l. /TACRE >*0.1*VYA*LBH 
C  HmMT ( J) =AMT •    IM  JTH  HArv. 

HmMT( J)=HAMT( J)+AIDT 

TaCS<IU  )=TACS(IU  )+ACDELT 

T  I  ACb.  =  TTACS  +  ACDELT 

CuTTdU  )=C0TT(IU  J-AIDT 

Ii-(C0TT(IU  J.LT.O.n)    C0TT(TU  )=0.0 

-rcN  =  TCN  +  AlLT 

C  IF   1  HE  riARV.    BASKET   IS  WITHIN  HAPTOL  LBS 

C  OF  CAPACITY »    THEM   IT  TS 

C  DUMPED,    OTHERWISE'    LOOK   FOR   NEXT  HARV. 

Th (HAMT( J) .LE.XO-HAPTOL)    GO  TO  * 

C 

lU  roNTlNUF 

C  LuOK   AT   TRAILERS  TO  SEE   TF  WE  CAN  Dl  ivP  HQRV. 

C  CnECKS  FoR  rMPTY  TRAILERS!    IF  ONE   IS  FMPTYr   THc-  fla^  IS  FET  for 

C  FILLING  IT 

11  K=1»NTLS 

It ( IFLAG(K) .EQ» 1 . ANO.NSGM(K) .EQ. J)    GO  TO  12 

11  CONTINUE 

no  37  K=l rNTLS 

TI-  ( I  FLAG  (K  J  • EQ • 0 )  NSGN(K)=J 

IKIFLAG(K)  .EQ«0)  IFLAG(K)=1 

Ti-  (  I  FLAG  (is)  .EQ.l.ANn.NSGM(K)  .EQ.J)    fc'P  ITF  (  3  f  60 1  )  f  ,  IDT  ,  TOAY  #  J 
801   FoR^mTC    ' r ' TP  A I LER  NO. • , I3»2X»  •  IS  SELECTED  TO  PF  FTlLFO  AT  TTvF»» 
lTnr2A»'0F  UA Y ' ' I<+ t 2x , ' bY   HARVESTER •  »  1 2  ) 
II-  1 1  FLAG  (K )  .FQ.l,A[\p.NSGM(K)  .EQ.J)    GO  TO  12 

37  CoNTINUF 

C  15GN(K)=ASSIGNING  T»'E  KTH  TRAILER   To  THr  JTH  HAPV. 

C  Tr LAO  — 0   MEANS  TRAILER   WAITING  TO  BE  FlLI  ED 

C  II-LAb=l   MEAVS  TRAILER   IS  BEING  LOADED 

C  T»-LAG  =  2  MLAMS   TRAILER   IF  FULL 

C  Ti-LAb  =  3  MLA^S   TRAILER    IF   IN  TRAMSIT  TO  GIN 

C  TrLAG  =  <+   MEANS   TRAILER    IF    IN  QUEUE 

C  IrLAb=b   MEANS   TRAILER   E  vDT  Y    AND   ON  GIN  YARD 

C  Ti-LAb  =  D  MLAMS  TRAlLrR   ON  WAY  HO^E 

C  TI-   DO  LOOP  COMPLETED    NO  TR  A I LEP  AVAIL. 

C  ,li-LAb(J)=U   LETS   HAR7  DUMP 

C  jrLA6(J)=l   MEANS   IDLE  HAPV. 

Il-LAG(J)=1 

IU_( J)=IDL( J)+0.1 

Go   TO  fa 

C 

C  FILLING   THE   K+H   TRATLEk   FROM   THF  J+M  HApvESTFP 

12  TmMT(K)=TmMT(K)+HAMT(J) 

Ti-  (TaMT  (K)  .GT.TCAP-SOO.  )  TFLAGU)=2 
TI-  (  I  FLAG  (K  )  .EQ.2)WRTTE(3»602)K»IDT 
(•,02   FoKMAT  (  *    '.'TRAILER  NO.  •  t  IH*2Xt » WAS  FILLED  AT  TTUF'»IU) 
C  mEClsS  FoR  FuLL  TRAILERS 

/VKlTL  (  3»6l+)  I  DAY  ►  IDT  .  J'HA^T  (  J)  'Kr  TAMT  (K  )  ,  I  HARV  (  J)  » I DL ( J ) 
6^  rwRMrtT(  '    »  »6X» 'DAY' .  14, 'TIME' '  I<+'6X, 'HAPVESTFP  NO .  •  ,  1 2  ,  '  MAS  •  .  rP  .  1  ' 
1'l-HS.    OF  SEED  COTTO"  BET'lG  DUMPFD   IMT0  TRAILER'  '  T3   »/»»    WHI^p  mow 
1-mS' .Fin.l, 'LBS.   OF  SEEO  COTTON' ( lOYi 'FIELD  NO. • » l5»fiV»  * TDLr  T T 
1'  »F«*.0) 
C  FnPTIES  THt  J+H  HARw. 

:|hMT(J)=0. 
Ui-L  ^^3  <  J)  =U 
o  roNTINUP 

C 

c 

801R  t^d=d 
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5hTFK   hARV .   DURING  nELl A   Tr    THE   TRAILERS   ARE  FY A^lNFD   AMH   Ir  TWp 
Ti-  (  IhLR.NE.OJGO  TO  ft 

To  SEE  IF  AMY  TRAILERS  LFFT  ON  FARM  j  IF  SO  HF  WILL  HAUL  1  Tp  ft  TLrD 
Oo  R3  1T=1»MTLS 

lKlaUIT.E^.NHV5.AN^.IFLAG(IT)  .FQ.2)    IFl  AG(IT)=3 
T»-  (IFLAG(IT)  .EQ.3)GO  To  18 
83  CoNTINUF 
TKU  =n 

no  17  IT=1»MTL5 

II- (IFLAG(IT)  .EQ.  2)TRDK=l 
17  Tr\D=lRO+lKUK 
K  I  T  =  U 

no  112  IT=I»NTLS 
K  1  =0 

Ii-  (  I KD  .  LT  •  d  )  GO  TO  6 

II- ( IFLAG(  IT)  .EQ.2)  KT=1 

*  i  T  =  KTT+KT 

ir  (Kl .EO.l) T  FL AG ( I T ) =3 

rr (IFLAG(IT) .FQ.3)   WRlTF(3»603)    I T  »  T  DT 
,03  FoRMATC    «»'TRAILER  MO.  »  » 14 » 2Xi  •  LEAVES  FOR   GIN  AT  TTMF  •  »  TU  ) 
It-  (KTT.FQ.D    GO  TO   1 « 

Ilk:  CoUTINUF 
Go   TO  b 

TnLR   IS  ThL  PICK-UP  DR I vFR 

inLR-O    » HE   IS  ON  FAPM 

TnLR-1 '    HE    IS   ON   WAY   To  GIN 

TnLR=2>    HE    IS   AT   G I M 

IuLR=3»    HE   IS  ON  WAY   To  FARM 
lb  IMLR=1 

mdAUL^NHAUL+I 

TKU=(XMT/lb. ) *10. 

Fi4U=lDT  +  TKU  +  2 

T(-NQ  =  TinT  +  TRn  +  2 

no  23  JK=1,MTLS 

II-  (  IFLAG(  Jk)  ,NE.3>6n   To  ^3 

FmT( jK)=TcHC 
23  CONTINUF 

GiNNING  PORTION   OF  PROGRAM 
b  CoUTINUF 

ArtPH=0. 

Ir  ( IDT . GT • iHSTRT. ANn. IDT.LT. I HEND )    ARPH  = ( AR/( T  HFMO- T  H^T"T ) ) *1 n. 
Tut3LS  =  TNbLS  +  ARPH/10  . 

TuliLS-TOTAL  NO.   OF  nALES  ARRIVED   AT  GIN,    ACCUMJL  ATFn 

TnIS  LOOP  LHFCKS  For?   TRAILERS  ARRIVING  PURINE  THTS  nFL T  A-T 

no  27  JLzlrNTLS 

Th  (  TlDT.LT.rNT(  JL)  .PR.lFLAG(  JL)  .NE."^)    GO  TO  27 

Tr ( IHLR.EO. 1 ) IHLR=2 

If ( ImLR.NE.2)    GO  TO  27 

I«T=T IUT+2 

TkTRij  =  TIME  HAULER  G^TS  RACK   TC  FARM 
IKTRN=1RT+(XMI/I5i ) +10. 
tK(IFLAG(oL) .EQ.3)GO  To  ?9 

lof^TlM^  THF   I+H  TRMLEW   ENTERS  THE  GIN  QUEUF 
TuBLS^MBLS  +  TCAP+fGTO/^nOO.  ) 
GU   TO  27 
29  It-LAG(JL)=U 

Tufj{  JL)  =HKL^-X  (  1  )  *A^PH*n.l+RGND+(TCAP*GTO/t*7°0n.n) 

Ir  (  IZ.EO.a)  ION  (  JL)  =r  KLG-PNX*ARPH*0  . 1  +2  .  0*  (  TC AP*OTO/U7QnO .  0  )  +  pG\;P 
WKITE  (  3 » 71 )  JL » I'OT » IPAY »  rkLG 
7i   FOKMMTC    '  ►  '  TRAILER  MO. «» 14 t 2X »» ENTERS  ^IN  QlJFuF   AT   T I  wr  »  ,  I  u  ,  ?x  ,  • 

lor    DAY»»l4t«.    GIN  b  A  C  K  L  0  ^   IS' » F9 • 1 »  ?X  » ' n ALES ' ) 
27  CoUTINUF 

Th ( T IDT. EU.lRTRN.ANn.lHLR. EQ.2)  IHLD=n 

Ir  (  IoFLP.LU.D    GO   To  99R 

Ti- (T1DT.LT.30P)    GO  TO  9a^ 

Tr (noND.GL.TNRLS-n.7) Go  JO  997 

CALCULATES  0 1 N  FAIL  IRE  TTMES  ANP  DOWN  TTMES»    S^TS  G^P  P">p  WMfM 

oTN   1c-  FIXED   «ND  STARTS   TO  OPfraTF  AGAIN 
po=i .-txp(-n. 1/12. ) 
vll)=X(1 ) *bl92.*163^4. 
CmLL  Ramqu(X,NN) 
o,^X  =  a  (  1  ) 
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T(- (RUX.GT.HO)    GOTO  30 
C  GiN  BREAKS  noWN   IF  PNX  L^SS  THAN  PROB.   OF  FAlLlJPF 

Do   1001  IR=1»4 
XU)=X(1  )*o 192.* 163*4. 
CALL  RANDU(X»NN) 
lnoi  <;oX  =  SUX  +  XU) 
QUX=X(i) 

C  ^ iTH   10  HLkF  t    IT  MEANS   1    HR .    AVFRAGF  RFPAIR  TTvF 

GuT=l0 . *ALOR ( 1 • "RNX ) 
GoP=TlDT+AbS(GDT) 
^KITE (3»fc04) IDTr IDAY»GDT 
^0t+  FURmaTC    'r'GlN  BREAKS  DOw/N  AT  T IME '  »  14  »  2X  »  •  OF  DA  Y  ♦  .  I U  ,  ?Y ,  •  Pf°  A  T° 
ITiME   IS* »Ffa.l»2X» 'TTME  INCREMENTS') 
C  ONLY  WHFN  TTDT   IS  GpEATFP   THAN  GOP  noES  GIN  BFGIN  TO  OprpATP  AGATN 

30  CuNTlNUF 

C 

C  RANDOMLY  COMPUTES  A"T  GINNED  DUPING  AT 

SoRT=0  .f. 

CmLL  GAIJSS(X»NN»SGRTrGRT(r»GAMT) 

SHMf=GAWT*0 . 1 

It- (BKLG.LT.0.1)    GO  TO  9P6 

It- (GAMT.gT.BKLG)    GAMT  =  bKLG 

OolN=DGlN+t>AMT 

BoND=BGMD+GAMT 
Q9d  tklg=tnbls-pgnd 
p97  continue 

IMPT=0 

C 

C  timPT  =  N0.   TRAILERS  RFADY   TO  BE  HAULED  BACK   TO  FARM,   may.   OF  ? 

C  CHECKS  POK  TRAILERS  BEING  GINNED  AND  RETURNED  TO  FARM 

OU  2B2  IzlrNTLS 

It-  (  IFLAG(  I )  .NE.4)  GO  TO  ?«2 

II- (  IQN(T)  .bT.BGND)Gn  To  ?82 

It-LAG(  I  )=5 

ThMT ( I ) =0 • 

WKlTE(3»80b) I»IDT 
fcOb  FoRMATC    •  t  ♦  TRAILER  NO .  i  ,  1H  t  2X  »  ♦  IS  GINNFD.   TI^F  TS'»I4) 
28^    II- (  IFLAG(  1 )  .EQ.5)  IMPT=IMPT  +  1 

ILNF=0 

Do  40  I=1»NTLS 

It- (  IFLAG(  I)  ,NE.5)GO  TO  ul 

Tf ( IhLR.EU. 1 .OR. IHLP.EW. 3)GO  TO  4l 

Th ( ImLR.E^.O. AND. IMPT.EO. 1 )    GO  TO  41 

It-  (  IUT.GT.tin  )    GO  TO  40 

IuNT=ICNT+l 

p| (I)=TIDT+(XWI/15.)*10. 

II-  (  IHLR.EO.O  )RT(  I )  =TIDT+  M  XMI/15.  )  *?  0.  )  *2. 
Ii-  (  TCNT.FU.2.0R.  IHLP  .Ecj.5)  IHLR  =  ^ 
Tt-  (  ICNT.FO.?)NHAuL  =  »,HAUL  +  l 
Tt-LAG(D=P 

41        (TIDT.GT.RTd)  .ANn.lFLAG(I)  .E0.6)    GO  TO  111 
Go  TO  40 
111  Tl-LAG(D=0 

WKITL(3» 114) I » IDT» I^AY 
114  FoRMATl'        'TRAILER  NO 14 t 2X »• RETURNS  TO  FAPv  AT  TiMr , , l4 , ?y , 
1 'oF  UA Y ' » 14) 
TiiLR=:0 
4U  CoNTINUF 
Q9b  CoNTINUF 

It- (IUT.LT.IGT)GO  TO  20 
ToT=lGT/10 
•-KlTt(3»60b) 
hOb  FORMAT (• 0 ',//> '    '  »3?X»  'nAILY   GIN  SUMMARY') 
wtvITE  (  3»h07) 

fc07  FORMAT  (  •  0  '  »  1  X  »  '  DAY  "0.    NO. ARRIVALS       BALES  GINNFD     t^T/vl  BALrS 

1  lOTAL  PALLS  CURRENT  oPER AT  I MG ' ' / » '  •»  12X t  • P ALFS • » 1 n Y t  • T^n rt Y » t 
17ai    'RLCEIVFD' »7X» 'GINNrO' ,5X» 'BACKLOG' »3X» 'HOURS  T")DAY'//) 

XKlTE(3»h0p) I  DAY,  AR,D6lN, TNBLS > DGND , PKLG , IOT 
cOo  rukMAT I '    • » I6»F12.1.F13. I rF12.0»RX»F8.0»Fll.l »RX» I3»//> 

Tl- (  IUAf. GT.410.AND.HKLG.LT. 2)    GO  TO  7 

TF (TTACS.GL.ACST)    Go  To  099 

Wi\ITE<3»733) 
733  c0KMAT( '0' »6X» 'DAILY  HARVESTING  SUMMARY') 

WKlTt  (3»61t>) 

Mb  ruRMATC '0' »4X» 'HOURS' #fay, 'TOTAL   ACR^S       TOTAL  COTTON       M AR Vr^Tr"  '  » 
1 Sa» 'WHICH  HARVEST' » 

l/»'        OPERATION         UARVFSTEQ  HAP  VESTED"  IDLF  TTmf  «  ) 

no  b!2  TH=1»NHVS 
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PROGRAM  LISTING-Continued 

fric    okITE(3»613)    IH»TTAC5'TCM» IDL( IH) » I  MOT I" 

61 o  FuRMAT ( • 0' »2X» I2»2X» »7X»F7.2»7X»Pq. 1 #gXf F5. 1  » 1 1X» I?,  /  ) 

999  CONTINUE 
7  CONTINUE 

GILS  =  COST   PER  TRAILER  PER  YEAR 

riR=  TOTAL  COST  OF  TRAILERS     PER  YEAR 

MMAUL  =  NUMBER  OF   TPIPS  HAULER  MAKES  TO  THE  GIN 

rnL  -  COST  PER  MILE  TO  o°ER ATE  PICKUP  HAULING'MOT  C^Uk'TTMG  I 

CnAUL=  TO  7 AL  YEARLY   COqT  FOR  HAljLlMG  TO  GIN 

MIH=  TOTAL  MO.   OF  DAYS  HARVESTING* INCLUDING  PATNY  n^Y^ 

CrLBR=TOTAL  COST  OF  FARM  LAROR   FoR  YEAR 

CoL8K=C0sT   OF  GIN  LABOR  FOR   UNLOADING  SYSTEM   AT  GIN 

NoLBR=NO.OF   LABORERS  FOR   THIS  GIN  UNLOADING  SYSTFM 

gv.pb=gim  cost  per  bale»from  smith  updatfd  STUDY 

VoL=&IN  SEASONAL  VOI  UMt 

HHH=HOUPS  RUN  PER  HARVESTER 

ASSUME  3  GAL  PER  HR   AT   .^3  PEK  GAL. 

r I AX=TAXES/YR. 

Ci-UR  =  LUP.  CoSTS/ YEAR 

CiNS=INSuKAMCE  COST 

C1NT= INTEREST  COST 

CuEP=DEPRECIATION  cost 

ri-iARN  =  TOTAL  COST  OF  HARVEST ING  FOR  vfAR 

Ct-IN  =  TUTAL  GIN  COST  FOR  YEAR 

T«-PU  =  TOTAL  COST  PER  BALF 

Ct-0S  =  YLOS*CC0T*GT0/l  00. 

r  IR=NTLS*CTLS 

Ci-tAUL=NHAUL*CHL*XMI*2. 

N I H=1+N0H-NSH- INOH-MSH) /7 

Cl"LBR=(CLHR*8.*NTH)  *  (NHVS  +  2  +  NHVS/3) 

CoL3R= (CLPR*TIDT/10 . ) *NGLBR 

GuP3=15.90+  (2t*0  28.6S  +  2bu7.29*GRTE)  /RGND 

HPH=(l.n/(ACDELT*10.n) )*«CST/NHVS 

CI-UEL  =  HPH*U  .99 

TLUB=0. 15*CFUEL 

C  I  AX  =  0  .  m*HARC 

ClNS=0tOo5*HARC 

CiNT=UHARC  +  SV)/2.  )  *f).07 

CuEP=(HARC-SV)/LlFE 

CkEP=0 . ni*HARC 

rnARv=CFuEL+CLUB+CTAX+ClMS+CINT+CDEP+CRFP 

CUARV=CHAkV*NHVS 

RLLS=TCN* (GTO/100. ) /4  79. 

ColN=GCPB*bL.LS 

T»-PB=GCPR+(CHARV  +  CTf  +  CHAUL  +  CFLBP  +  CLOS)  /PLLS 
whITL  (6.635) 
Du  634  TC=1»NTLS 
tl  (  IC)=TTUC)-TE(  IC) 
63i+  wkITE(3»633)    I C  »  TE ( T  C )  »  TT ( I C ) 

63b  FORMAT ( »0' t 10X» ' TRAILER  UTILIZATION* ,//,HXt  'TRAILER1 ,  6y, ' EM^TY t , 

16X> 'FULL* ) 
63J  FORMAT ( •    ' » 7X » 1 3 , 7X t F6 . 1  , 5X t F9 . 1 ) 
|.'KITE<3»  lOaO)   BLLS  t  HPH  t  mTH  r  CLOS 
ln8u  FuRMATt'    •» 'BALES  HARVESTED-' »  F6 . 1 » // » ♦    '»'HOUPS  OPERATION  "r"  MflR 
l\/t_STLR-'  *F7.2»//»  '    '.'DAYS  LABOR  CHflRGEP  FOR  HARVESTING* » I5»//. •  * 
2, 'LOST  COTTON  COST-*»Fb.') 
WHITE    (6,b02)    IYR    ,    CHAUL   »    CFLRR    »   CHARV    »    CGIM   »  TrRR 
^02  FORMAT    (*0'»    lOy    »    » YEAR-NO '    '    T2    »    /   .'HHAIJLlNG  COST*,    flX  » 

lFo.2    »/»    * FFARM  LAB^R   CoST»»    bX    »    F«.2    t/t    'HHARVESTEP  COST'.^Y  » 
IF^.2    »/»*GfalNNlNG  COST',    8X    t   FR.2    »/»    IX    t    ?P(1H*)    ,    //   t ' Ty OT A L 
lOwST  PER  BALF   IS'»   F6.2    #*F0R  HARVESTING   »    HAUL  I MG   »    Ann  GIMmTMG'» 
1Fo.2»2X» 'BALES' > 
It-  (  I  YR.LT.NYR)  GO  TO  1000 
S  I  OP 
EnU 


SUBROUTINE  SELECT (N.M»X »NN»PST ART »  MASTRT»MATPTP) 

ni MENS I ON  VATRTE(5n»5u) 

NbG=GlN  STARTING  DATE 

> i jH=HARVEST I NG  STARTING  DATE 

XU=AVG.    GIN  STARTING  DAT^ 

XM=AVG.    FIRST  HARV.  DATF 

Su  AND  SM  ARE   MEASURES  oF  VARIATION 

Xu=2ri7. 


PROGRAM  LISTING-Continued 

SW=3. 

Chll  gai  iss  i  y »  mn  r  sn f  xn  »  g ) 

N=G 

Do  H=lr5U 

T(-  (MATRTEUr  D  .  LT . PST ART ) GO  TO  1 

M-MASTRT+I+1 

Go  TO  2 

1  CoNTlNUF 

2  RcTURN 
Fi*D 


qobrouttnt  delayh  ( x  #  nn »  r »  i  day'  i  st  art,  i r  a  i n »  r  f  t  m ) 
dimension  kfinUoo)  ,x(d 
c        r-rainfallr  inches 

iMlRAIM.tb.l)    GO  To  20 

CmLL  RATN(K»X»NN) 

OO   TO  3^ 
2u  R-RFIN ( IDAY ) 
3U  CONTINUE 

Xul=0.6 

Snl  =  0  .  IS 

Xr\2  =  1.0n 

s«2=o.2n 

XK3=2.00 

C  TnE  PREC.    VARIABLES  DESCRIBE  A  DELAY  STEP  FUNCTION  WhFrt  STrn 

C  q*EAK   POINTS  ARE  RANDOMLY  CHOSEN 

It-  (R.LT.0.U1  )    GO  TO  71 

TmLL  GAUSS (X»NN»SR1»XR1»DLMT1) 

CmLL  GAUSS(X»NN»SR2»XR2,DLMT2) 

T»"  (R.LT.DLMT1)DLAY  =  ^. 

R  (R.GT.DLMTl.AMD.R.LT.nLMT2)DLAY  =  i+. 
T  h (R.GT.DLhT2)DLAY  =  S. 
72   TuLAY=DLAY+0 . 1 

T»-  ( I  START.  GT.  IDAY)  1ST  ART=  1ST  ART  +  IDLftY 
IiTART=IDAY+lDLAY 

Ii-  (  ISTART-1DAY.GT.<+)  ISTART=IDAY+4 
C  A  MAX   DFLAY   OF  4  DAYS  FROM  CURRFNT  DAY 

It-  (R.GE.O.Ul  )  WRITE(  T»61)  TDAY  t  k  t  TSTART 
61   FORMAT  (  '  n  *  »  *  DA  Y   NO .  =  '  *  Iu  ,  i+X  »  •  R  ATN=  •  » F5 .  ?  ,  HX  »  •  DFL  A  Y  UNTTL  DAYr*,^) 
71  CoNTlNUF 

RcTURN 

FtxD 


SoaROUTTNE  RAIN(R»X»NN) 

DIMENSION  X(D 

R-0  . 

Pi_TURN 

E^D 


SUBROUTINE  ARR  (R  ,  X  r  NN» AR.NDAY  »  I G »  VOL  »  I AR » SA  r  MA » MR»  N|C ,  T  AR^LG^ 
Pi_AL  NA»NB»NC 
DIMENSION  X(l) 
lo  =  0 

DmTA   NBLNK/H/f  NSTART/f)/ 

TKNUAY.LT.MSTART)    TG  =  1 

It-  (NLAY.LT.NSTART)GO  TO  1 

II-  (k.GT.O)GO  TO  2 

Tt-  ( IAR.GT.U)    GO  TO  1 

Xm=NL)AY-NBlNK 

II- ( I  ARFLG.LO.  1  )    GO  to  In 

Sm=14  9.45o/  (  ( VOL )  **n . <+i+?f=>) 

Sm=3.37 

NA=n.D027*VOL-3.52-ft.O 
•'Lj=10  0./SA  +  n.67*NA-?.67 
!|v.=Nb+8. 
10  FoX=l (XA/NA) **2) *SA 


96 


PROGRAM  LISTING-Continued 


It-  (  YA.bT.NA)FOX  =  SA 

Tl-(XA.bT.Nb)F0X=((("C-XA)/8.)**?)*Sft 
It (XA.bT.HC)FOX=0. 
AhK=FOX*vOl/100 . 
'\KSIb  =  AAR/l£:.5 

CmLL  GAUSS(X,NNr ARSTG» AA<?»AR) 

Tl-  (  AR.LT.  0.  )  AR  =  0  . 

rvu  TO  3 

M-l.b*X ( 1 ) 

Ib=N 

NiTAKT=MDAY+N 
i  t  :uLNK=NRLNK+l 

Ah  =  J 
3  RuTURN 


SudRoUTlNL  GAUS5(X»MN»S»  \M*  Y) 
nihlENSION  X(l) 
A-U .  0 

Du  5U  I=l»l? 
Xll)=X(l)*8J92.*163*4. 
CmLL  RANDU(X»NN) 
Y-X (1) 
A-A  +  Y 

Y- ( A-6. 0 ) *S  +  AM 

Tt-TURN 
EtN.D 


qoBRoUTTNL  PANDU(X»M) 

DIMENSION  X(l) 

K-31o227 

Ni\=N*K 

ru=N 

R=RN/3H35973R367. 

Yll )=ABS(R) 

M-iMK 

RuTURN 

FW0 


EXAMPLE  RUN 
Input  Data 


305 

0  .000 
0.40o 
0  .950 
0.20U 
0  .900 
0.000 
0.400 
0.95U 
0.200 
0.90o 
O.OOo 
0.40o 
O.P5o 
U.20o 
U.90o 


1 

14  6 

1 

25 

.10 

0.93 

2no . 

00 

20 

.00 

1.00 

400  . 

GO 

5 

••00 

1.40 

250. 

On 

1? 

.50 

1.20 

75. 

on 

51 

.10 

1.00 

250 . 

on 

30 

.00 

1.00 

400 . 

00 

2.5 


18.5 


1  .60 


12.0 


0.10 


.  noO 
.  uoO 
•  QoQ 
.  3U0 
.QOO 
.  aoO 
.  '*uO 
.->S0 
.  ^uO 
.  ouO 
.  nou 
.  ^uO 
.oJO 
.  =SO0 
.QUO 


.030 
.500 
.950 
.400 
.950 
.080 
.500 
.950 
.400 
.950 
.080 
.500 
.950 
.400 
.950 


.  OBO 
.500 
.951 
.400 
.951 
.080 
.500 
.951 
.400 
.951 
.080 
.500 
.951 
.400 
.951 


.100 

.500 

.001 

.400 

.001 

.100 

.500 

.001 

.400 

.001. 

.100, 

.500, 

.001, 

.400, 

.001, 


100 
600 
001 
400 
001 
100 
600 
001 
400 
001 
100 
600 
001 
400 
001 


.100. 
.650. 
.001. 
.400  . 
.001. 
.100. 
.650. 
.001. 
.400. 
.001. 
.100. 
.  65o . 
.001. 
.400. 
.001. 


1  00  . 
700  . 
oOl. 
400. 
nOl. 
100. 
700. 
nOl. 

400. 

nOl. 
100. 

700. 

nOl. 
400 . 
nOl. 


100  . 
700. 
001. 
500 . 
001 . 
100. 
700. 
001. 
500. 
001. 
100. 
700. 
001 . 
500. 
001. 


200.200 
700.800 
000.000 
500.500 
001.001 
200.200 
700.800 

ooo.ooo 

500.500 
001.001 
200.200 
700.800 
nOO.QOO 
500.500 
001.001 


.200 
.800 
.  OOO 
.500 
.001 
.200 
.800 
.000 
.500 

.noi 

.200 
.800 

.  noo 

.500 
.nOl 


.25n 
,80n 
.  OOn 
,5nn 
.001 
,25n 
,80n 
.OOn 
,5nn 
.nni 
,25n 
.  80n 
.  non 
.500 
.001 


.  ?50 
.900 
.000 
.500 
.001 
.250 
.900 
.oOO 
.500 
.001 
.250 
.900 
.000 
.500 
.oOl 


,30n 
.900 
.  Qnn 
.5on 
.001 
.30n 
.900 
.QOO 

.5on 

.001 
.3on 
.9on 
.oon 
,5nn 
.oni 


.300 
.?00 
.100 

.oOl 
.300 
.900 
.100 
.500 
.001 
.300 
.?00 
.100 
.500 
.nOl 


.30n 
.  qnn 
.Inn 

.700 
.001 

.  3on 

•  90f) 

.Ion 
.7on 
.  noi 
.3on 
.9on 
.Inn 

.700 

.noi 


.300 
.900 
.100 

.700 

.oOl 

.■*nn 

.QOO 

.ion 
.-'On 

.oOl 

.■*nn 
,oon 
:ioo 

.700 

.oOl 


.350 

,9nn 
.inn 
.son 

.001 

.35n 
,9nn 
.inn 

.800 
.001 

.35n 

.900 

.inn 
,8nn 

.001 


•u2 
•2n 

.2ni 

.80! 
,oOi 
.40 

•2° 

.20 
,«0 

.on 

.40 

.°o 

:?o 

,«0 
,oO 


10R.30 
J.  0 
1  10 
32^  .22 
35o  .04 
O.U02 
1  Jl4 


327 
363 
40 
333 


0.059 
0.28 

.15 
.01 

100 
4 


71a9. 00 
5.0 

335  .02 

0.800 


13175.00 
3.37 


3000.00 
12  34 


8 
42 


1584.00 
1 


336     .02     337     .47     340      ,Jfi     ^43     .01      344  .02 


Output  Data 


HARVFST-GIN    FOR  N.C.  STATE  EXAMPLE 

NO.HARV.     NO.  TRAILERS      TRAILER  CAP.     HIST.  TO  GIN 
1  14  7767. S  2.5 


FIELD 
1 


ACRES 
25.  10 

£  20. 00 

3  5.  00 

4  12.50 

5  51.10 

6  3  n .  r  1 0 
GIN  STARTING  DAY  IS  314 

HARV.   STARTING  DAY  IS  333 

TOTAL  COTTON  TO  HARVEST  IS 


YIELD 
93 
00 
40 

20 
00 
0  0 


ROW  LENGTH 
200. 00 
400. 00 
250. 00 
75.  00 
2b 0. 00 
400. 00 


^:-'91i?S„  GROUND  - 


DAILY  HARVESTING  SUMMARY 


HOURS 
OPERATION 


TOTAL  ACRES 
HARVESTED 


16  .00 

GIN  BREAKS  DOWN  AT  TIME 


TOTAL  COTTON 
HARVESTED 

.  0 


HARVES1ER 
IDLE  TIME 

.  0 


OF  DAY  319    REPAIR  TlMt  IS 


WHICH  HARVEST 


•4.2    TIME  INCREMENTS 


DAY  NO.  NO. ARRIVALS 
BALES 


DAILY  GIN  SUMMARY 

BALES  GINNED    TOTAL  BALES 
TODAY  RECEIVED 


Ti'OAL  PALES  CURRENT  OPERATING 
GINNED-         BACKLOG      HOURS  TODAY 


319 


38.  1 


37.4 


90. 


90. 


.6 


11 


98 


Output  Data— Continued 


DAILY  HARVESTING  SUMMARY 

HOURS  TOTAL  ACRES      TOTAL  COTTON      HARVESTER  WHICH  HARVEST 

OPERATION        HARVESTED         HARVESTED  IDLE  TIME 


i  6 


00 


.  u 


DAILY  GIN  SUMMARY 

JAY  HO.  HO. ARRIVALS      BALES  GINNED    TOTAL  BAi.ES         T01 AL  B6LES    CURRENT  OPERATING 
BALES  TODAY  RECEIVED  GINNED  BACKLOG      HOURS  TODAY 


>,2U 


39.  9 


39.2 


130. 


129. 


11 


DAILY  HARVESTING  SUMMAR'i 


HOURS 
OPERATION 


TOTHL  ACRES 
HARVESTED 

.  00 


TOTAL  COTTON  HARVEST ER 
HARVESTED  IDLE  TIME 


WHICH  HARVEST 


IiwILY  GiH  SUMMARY 

SftY  NO.   NO.mRRIVALS      BALES  GINNED  TOTAL_BALES 
BALES  TODAY  REChlVED 


TOTAL  BALES  CURRENT  OPERATING 
GINNtu         BACKLOG      HOURS  TODAY 


321 


84 .  £ 


69.4 


21; 


198, 


i4. 4 


11 


DAILY  HARVESTING  SUMMARY 


HOURS 
OPERATION 


DAY  NO. 


TOTAL  ACRES 
HARVESTED 

.  00 


TOTAL  COTTON 
HARVESTED 


HARVESTER 
IDLE  TIME 


NO.  ARRI  hi  ;. 
BALES 


DAILY  GIN  SUMMAR' 


WHICH  HARVEST 


BhI ES  GINNED 
TODAY 


TOThL  BAL  i-  : 
RECEIVED 


T  O  I  AL  BALES  CURRENT 
GINNED  BACKLOG 


OPERATING 
HOURS  TODAY 


33> 


2*7,  5 


357 


34  V 


C47 


.  0 


23 


DAILY  HARVESTING  SUMMARY 


HOURS 
OPERATION 

.  1  6 


TOTAL  ACRES 
HARVESTED 

5.9y 


TOTAL  COTTON 
HARVESTED 

10148.9 


HhRVEs ! ER 
IDLE  TINE 


WHICH  HARVEST 


0 


RAILER  NO.     2     IS  SELECTED  TO  BE  FILLED  AT  TIME  A-. 

DAY  3341 1  Ml    43  HAKVtSitR  NO.   IHAs  20,-5. 

HIGH  NOW  HAS        2075.1  LBS.  OF  SEED  COTTON 
HVESTER  NO.       1  BREAKS  DOWN,    TIME    470F  DAY  334 


ARVbSTER  NO.       1  BREAKS  DOWN, 

DAY  3341 1 ME  57 
HICH  NOW  HAS        4302. 5LBS, 

891.1        *~l\i.2  hS.l 

DflY  331 TIME     64  HhR 
HCH  NOW  HAS  _     6500.  0LFS.  OF 
RAH.ER  NO.       2    UAS  HUtU  v  f 
DAY  3341"  I  ME     71  HhR 
HICH  NOW  HAS        8805.1  LBS.  OF 


1Mb    48uF  DAY  534 
HARVESIER  NO.    IHAS  222 
OF  SFlKCCTTON 

.SIC  A.  B.C,  EFf 

'ES  M  R  NiJ.    J  HAS     2197.51  B 
St '..  D  CO  i  TON 
TjME  rl 
EC'I.R  NO.    1  HAS 
SET  0  COTTON 


1 

OF  DAY  334    BY  HARVESTER  1 
1LBS.  OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER 
FIELD  NO.         1  IDLE  T I ME=  0. 

REPAIR  TIME  IS    -1.9TIME  INCREMENTS 


LtrtVES 
ENTERS 


FOR  GIN  hT  Tint 
GIH  QUEUE  AT  TIME 


24 


RAILfR  no. 
railer  no. 

RAILER  NO.     3     IS  SELECTED  TO  BE  FILLED  AT  TIME 

DAY  334TIME    77  HARVESTER  NO.  IHAS 

HICH  NOW  HAS         2098. 0LBS.   OF  SEED  COTTON 
RAILER  NO.       1     IS  GINNED.  TIME  IS  73 

HAY  334TIME    84  HARVESIER  NO.  IHAS 

HICH  NOW  HAS        4504. 7LBS.  OF  SEED  CO  I  TON 

DAY  334TIME    90  HARVESTER  HO.  IHAS 

HICH  NOW  HAS        6579. 2LBS.  Oh  SEtU  CO  f I  ON 
RAILER  NO.       3    WAS  FILLED  AT  TIME  97 

DAY  334TIME    97  HARVESTER  NO.  IHAS 

HICH  NOW  HAS        t:9bfc..7LBS.  Uh  SEED  COT  I  ON 
RAILER  HO.       2    LEAVES  FOR  GIN  AT  TIME  97 
RAILER  NO.       2    ENTERS  GIN  QUEUE  AT  TIME  101 


3LBS.  Of 
FIELD  NO. 

fiF 

F  r t LB  NO. 

2305.  11  OS.  0! 
FIELD  hi: 


REPAIR  TIME  IS  -10.0TIME  INCREMENTS 


SEED  COTTON  BEING  DUMPED  INTO 
1  iIDLE  TIME=  0. 

SEED  COTTON  BEING  DUMPED  INTO 
1  IDLE  TIME=  0. 

SEED  COTTON  BEING  DUMPED  INTO 
1  IDLE  TIME=  0. 


TRAILER 
TRAILER 
TRAILER 


01 


DAY  334.  ( 
OF  DAY 


6.5 


BALES 


:098.  01  BS 


uf 


FIELD  NO, 


IN  BACKLOG  IS 
334    BY  HARVESTER  1 

SEED  COTTON  BEING  DUMPED  INTO  TRAILER 
1  IDLF  T I ME=  0. 


?LBS.  OF  SEED  COTTON  BEING  DUMPED  I NT  0  TRAILER 
FIELD  NO.         1  IDLE  TIME=  0. 

074.4LBS.   OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER 
1  IDLE  I IMt=  0. 


FIELD  NO. 

, 5LBS.  OF 
FIELD  NO. 


SEED  COTTON  BEING  DUMPED  INTO  TRAILER 
1  IDLE  TIME=  0. 


OF  DAY  334.  GIN  BACKLOG  I< 


9. 1  BALES 


Output  Data— Continued 


DAILY  GIN  SUMMARY 


DAY  HO. 


NO. ARRIVALS 
BALES 


BALES  GINNED 
TOjjAY 


TOTAL  BALES 
RECEIVED 


TOTAL  BALES  CURRENT  OPERATING 
GINNED  BACKLOG      HOURS  TODAY 


334 


110. 


108.  0 


95b . 


11 


DAILY  HARVESTING  SUMMARY 


HOURS 
OPERATION 


TOTAL  ACRES 
HARVESTED 


I OTAL  COTTON 
HARVESTED 

27689.5 


HARVESTER 
IDLE  TIME 


WHICH  HARVEST 


YL05= 


.  00 


DAILY  GIN  SUMMAR'- 


DAY  NO.  NO. ARRIVALS 
BALES 


BALES  GINNED 
I  OB  AY 


TOTAL  BALES 
RECEIVED 


TOTAL  BALES  CURRENT 
GINNED  BACKLOG 


OPERA! ING 
HOURS  TODAY 


360 


180. 


561.9 


5  0 1 1 


IV. 


DAILY  HARVESTING  SUMMAR* 


HOURS 
OPERATION 


TO  I AL  ACRES 
hARVEST  ED 

103. 1? 


TOTAL  COTTON 
HARVESTED 


HARVEST  ER 
IDLE  TIKE 


WHICH  HARVEST 


YLOS= 

TRAILER  NO. 
TRAILER  NO. 
TRAILER  NO. 
TRAILER  NO. 
TRAILER  -NO. 
TRAILER  NO. 
DAY 


3641 . 90 
1 


RETURNS  TO 
RETURNS  TO 

4  RETURNS  TO 

5  RETURNS  TO 
3     IS  GINNED. 

1     IS  SELECTED 
361TIME  44 
WHICH  NOW  HAS        2399. 6LB 

DAY  361TIME  43 
WHICH  NOW  HAS       4661 -9LB 

DAY  361TIME  52 
WHICH  NOW  HAS  6S41.5LBS 
TRAILER  NO.       1  WAS 
DAY  361  TIME  5 


FARM  AT  TIME 
FARM  AT  TIME 
FARM  AJ  TIME 
FARM  A I  TiMb 
T I  ME  IS  43 
TO  BE  FILLED  AT 
HARVESTER  NO.  1HA 

OF  SEED  COTTON 
HARVESTER  NO.  1HAS 

Oh  SEtB  CUT  TON 
HARVESTER  NO.  1HAS 
OF  SEED  COTTON 
FILLED  A I    I IMt  57 

HARVEST:- R  NO.  1HAS 


UF  JJAY  361 
OF  DAY  361 
OF  DAY  361 
OF  DAY  361 

TIME    44    OF  DAY  361     BY  HARVESTER  1 

399.6LBS.  OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER  1 

FIELD  NO.         5  IDLE  TIME=  0. 

262.3LBS.  OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER  1 

FltLD  HO.        5  IDLE  TIMt=  0. 

179.6LBS.   OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER  1 
FIELD  NO.         5  IDLE  T I ME=  0. 


WHICH  NOW  HAS        9409. OLBS.  OF  SEED  COTTON 
TRAILhR  NO.       1    L  LAVES  I- OR  GIN  A I  TIMfc  5f 
HARVESTER  NO.       I BREAKS  DOWN,    TIME    6 OOF  DAY 

893.0      392.2      _98.7  .546 
TRAILER  NO.       1    tNThRS  GIN  QUEUE  A I    I  1Mb 
TRAILER  NO.       3     RETURNS  TO  FARM  AT  TIME  63 
TRAP  ER  NO.     2     IS  SELECTED  TO  BEFILLED  AT 

DAY  361 TIME    64  HAKVbSibR  NO.   I HA 

IJHIO,  NOW  HAS        2356. 2LBS.   OF  SEED  COTTON 

DAY  361TIME    68  HARVESTER  NO.  1HA 

WHICH  NOW  HAS        4463. 2LBS.  OF  SEED  COTTON 


.5LBS.  OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER 
FIELD  NO.         5  IDLE  TIME=  0. 


REMAINING 


COMPLETED 
COT  I  ON  IS 


HARVESTING 
1573. 


FIELD  NO. 


361  REPAIR 
A.  B,  C,  EFF 
1      OF  Day  J6i.  t 

OF  DAY  361 
TIME    64    OF  DAY 
S    23^6.2LF:s.  OF 
FIFLD  NO. 
2112. OLBS.  OF 
FIELD  NO. 


ON  DAN 


TIME  IS     -3.3TIME  INCREMENTS 
IN  BACKLOG  IS         31.0  BALES 
361    BYHARVESTER  1 

SEED  CO  I  I  ON  BEING  DUMPED  INTO  TRAILER  2 

5  IDLE  T I ME=  0. 

SEED  COTTON  BEING  DUMPED  INTO  TRAILER  2 
5  IDLb  TIhb=  0. 

561  THIS  FIELD  HAS  BEEN  HARVESTER  1  TIME 


COTTON  BEING  DUMPED 
IDLE  T I ME=  0. 

COTTON  BEING  DUMPED 
i  IDLE  T I ME=  0. 


INTO  TRAILER 


INTO  TRAILER  2 


YA  .01139  , 

DAY  361 1 1 ME    72           HARVESTER  NO.    1HAS  2413.61  BS.  nF  SFED 

WHICH  NOW  HAS        6386. 8LBS.  OF  SEE 0  COTTON  FIELD  NO.  i 
TRAILER  NO.       2    WAS  FILLED  AT  TIME  76 

DAY  36 IT  I ME    76           HARVESTER  NO.    1HAS  2382. 9LBs.  OF  SEFD 

WHICH  NOW  HAS        9269. 7LBS.  OF  SEED  CUT  TON  FIFLD  NO.  i 
TRAILER  NO.       2    LEAVES  FOR  GIN  AT  TIME  76 
TRAILER  NO.     3     IS  SELECTED  TO  BE  FILL  ED  AT  TIME    80    OF  DAY  361     BY  HARVESTER  1 

,„„„  DHV  3.6* TIME     80           HARVESTER  NO.    1HAS  2389. 8L.BS.  OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER  3 

WHICH  NOW  Has       ;.J3ay.3LBS.  UF  SEED  COTTON  FIbi  D  NO.        6           II"  b  T l ME=  0'. 

TRAILER  NO.       2    ENTERS  GIN  QUEUE  AT  TlPlE    80  OF.  DAY  3S1.  GIN  BACKLOG  IS        1S6.4  'BaI  FS 

....  ,    HSX  36.1TIMF     84           HARVESTER  NO.   1HAS  2334. 3LBS.  OF  SbbD  COTTON  BEING  DUMPED  INTO  TRAILER  3. 

WHICH  NOW  HAS       4724.1 LBS.  OF  SEED  COT  f ON  FIElD  NO.        6           IDI  E  TIME=  0. 

„,,--,    S9!"I  3flTIME    88           HARVESTER  NO.    1HAS  2320. 7LBS.  OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER  3 

WHICH  NOW  HAS        7044. yLB*.  OF  SEED  COTTON  FIFLD  HO.         6            IDLE  T I ME=  0. 


100 


Output  Data— Continued 


'AILER  NO.      3    WAS  FILLED  AT  TIME  92 

DAY  361TIME    92  HARVESTER  NO.    1HAS    2480. 9LBS.  OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER  3 

IICH  NOW  HAS        9525. SLBS.  OF  SEED  COTTON  FIELD  HO.         6  IDLE  TIME=  0. 

SAILER  NO.      3    LEAVES  FOR  GIN  AT  TIME  92 

N  BREAKS  DOWN  AT  TIME    92    OF  DAY  361     REPAIR  TIME  IS  -11.0    TIME  INCREMENTS 
iJLER  NO.     4     IS  SELECTED  TO  BE  FILLED  AT  TIME    96    OF  DAY  361     BY  HARVESTER  1 

DAY  361  TIME    96  HARVESTER  NO.   1HAS    2S34.2l.BS.  OF  SFED  COTTON  BEING  DUMPED  INTO  TRAILER  4 

IICH  NOW  HAS        2634. 2LBS.  OF  SEED  COTTON  FIELD  NO.         6  IDLE  TIME=  0. 

SAILER  NO.      3    ENTERS  GIN  QUEUE  AT  TIME    96      OF  DAY  361.  GIN  BACKLOG  IS       208.2  BALES 

DAY  361TIME  100  HARVESTER  NO.   1HAS    2572. SLBS.  OF  SEED  COTTON  BEING  DUMPED  INTO  TRAILER  4 

IICH  NOW  HAS        5207. 1LBS.  OF  SFED  COTTON  FIELD  NO.         6  IDLE  T I ME=  0. 


TRAILER  UTILIZATION 


TRAILER 

EMPTY 

FULL 

1 

21.  0 

55.2 

34.7 

41.5 

44.2 

"2.  0 

4 

50.7 

25.5 

5 

2  A 

47.3 

6 

57.6 

18.6 

7 

S'5 . 5 

6.7 

o 

71.  1 

5.  1 

9 

7b .  2 

.  0 

10 

76.2 

.  0 

11 

76 . 2 

.  0 

12 

76.2 

.  0 

13 

76.2 

.  0 

14 

76 . 2 

.  0 

ILES  HARVESTED-  140.0 
IURS  OPERATION  PER  HARVESTER-  59.58 

IYS  LABOR  CHARGi  ij  FOR  HARVESTING  31 

IkVESTER  CUii  2235.2  0 

p)NG  COST  3456.99 

eft***:**********:*.***';.  +.+  *.+:++:+: 

ITAL  COST  PER  BALE  IS  61.77F0R  HARVESTING  ,   HAULING  ,   AND  GINNING 
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